1 FORTH 



Dimensions 



Volume 7, Number 1 



May/June 1985 
$2.50 



Forth 
Spreadsheet 



Not ONLY But ALSO 



Menus in Forth 



Macro Generation 



Lots o' Variables 



FORTH LOVE IF 
(609) 452-2 111 
CALL THEN 



Growth is where we are, at EG&G Princeton Applied Research... both 
company growth and personal growth for our professional 
employees. Join a leading, non-defense oriented, manufacturer of 
scientific and electro-chemical Instrumentation, highly revered as a 
leader by our industrial and research customer set. 

We're looking to add a few good software engineers to 
spearhead our new product development. We have positions for 
people with a BSEE and BS Physics or Chemistry with an understanding 
of hardware/software interface as it pertains to measurement in- 
strumentation. Highly successful candidates will have written programs 
involving real-time interrupts, and assembly language linked to at least 
one high level language. Positions requiring a BSEE also require some 
experience In circuit design. 

Enjoy the rural living and cultural presence of a true college town, 
knowing that in less than one hour you can visit the Jersey shore or ski 
the Poconos, see a play on Broadway (NYC) or take In a Phillies game. 

Your knowledge of FORTH may be your ticket to success. Forward 
resume or call: 

Richard W. Hucke, AEP 
Director, Human Resources 
EG&G Princeton Applied Research Corp. 

^^EOnB PARC 

P.O. BOX 2565 • PRINCETON, NJ 08540 

(609) 452-2111 

Equal Employment Opportunity Employer M/F 



FORTH Dimensions 

Published by the 
Forth Interest Group 

Volume VII, Number 1 

May/June 1985 

Editor 
Marlin Ouverson 

Production 
Cynthia Lawson 

Forth Dimensions solicits editorial 
material, comments and letters. No 
responsibility is assumed for accuracy 
of material submitted. Unless noted 
otherwise, material published by the 
Forth Interest Group is in the public 
domain. Such material may be repro- 
duced with credit given to the author 
and to the Forth Interest Group. 

Subscription to Forth Dimensions is 
free with membership in the Forth 
Interest Group at $15.00 per year 
($27.00 foreign air). For membership, 
change of address and to submit 
material for publication, the address is: 
Forth Interest Group, P.O. Box 8231, 
San Jose, California 95155. 



i 
I 
1 



Symbol Table 

Simple; introductory tu- 
torials and simple appli- 
cations of Forth. 

Intermediate; articles 
and code for more com- 
plex applications, and 
tutorials on generally dif- 
ficult topics. 

Advanced; requiring stu- 
dy and a thorough under- 
standing of Forth. 
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Code and examples con- 
form to Forth-83 stand- 
ard. 



Code and examples con- 
form to Forth-79 stand- 
ard. 



Code and examples con- 
form to fig-FORTH. 



Deals with new propos- 
als and modifications 
to standard Forth sys- 
tems. 
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A Forth Spreadsheet 
by Craig A. Lindley 

A spreadsheet program written in high-level Forth! Useful it as is, or expand it to 
include features like those of larger, commercial products. A working application 
with pseudo-code from which to study and learn. (Source listing comes in the next 
issue.) 



Macro Generation in Forth 
by Don Taylor 

A cleaner way to code those macros ■ 
Dimensions V/5. Try it! 



• inspired by Soreff's original work in Forth 



Keywords; Where Used 
by Nicholas Pappas 

FINDNO tells which words use a given keyword. When you need to make global 
changes in a program, relocate it to high memory or — for example — find which 
words change base, try out this utility. 

Not ONLY But ALSO 
by Bill Stoddart 

The author argues that complete control of vocabulary search order is possible 
without departure from the Forth-83 Standard. 

Another Forth-83 LEAVE 
by John Hayes 

Looking for the ideal LEAVE seemed futile at first, but this proposed solution 
may be the best so far. After trying it, let us know your opinion. 
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Now You Can Add 



ARTIFICIAL 
INTELLIGENCE 

To Your Programs Using a Powerful Combination 



'''SUPER\FfORTHf®5 



WW 



By Elliot Schneider 8. Jack Park 



Heres Your Chance to Profit by being on 
the Forefront, Write 5th Generation Software 



Learn How To: 

• Create Intelligent • 

Programs 

• Build Expert Systems • 

• Write Stand Alone License 

Free Programs • 

Write Intelligent Programs 

• Home Use • 

• Robotics • 

• Medical Diagnosis • 

• Education 

• Intelligent CAI • 

• Scientific Analysis • 

• Data Acquisition • 

Extended Math Functions 

• Fast ML Floating Point & Integer Math 

• Double Precision 2E+38 with Auto. Sci Not. 

• n^^e" Logx Loge Sin Cos Tan SQR 1/X... 

• Matrix and Multidimensional Lattice Math 

• Algebraic Expression Evaluator 



Easy Graphics & Sound Words 



Construct 
Rule Bases 
Do Knowledge 
Engineering 
Use Inference Engines 

For: 

Data Analysis 
Business 
Real Time 
Process Control 
Fast Games 
Graphics 

Financial Decisions 



SUPERFORTH 64+AI 



LISP 



LOGO 



PASCAL 
BASIC 
FORTRAN 



ASSEMBLER 




Power of Languages Constructs 
SuperForth 64 is more 
powerful than most other 
computer languages 



Programming Time 
SuperForth 64 Saves You 
Time and Money 



• Hires Plotting 

• Windows 

• Split Screen 

• Printer/Plotter Ctrl 

• Sprite & Animation 
Editor 

Easy Control of all I/O... 

• RS232 Functions 

• Access all C-64 Peripherals 

Utilities 

• Interactive Interpreter 

• Forth Virtual Memory 

• Full Cursor Screen Editor 

• Full String Handling 

• Trace & Decompiler 

• Conditional Macro 
Assembler 



Great Documentation 

• Easy to Read 350 pg. 
Manual with Tutorials 

• Source Screen Provided 

• Meets all MVP Forth -79 
Industrial Standards 

• Personal User Support 

A Total 
Integrated Package 
for the Commodore 64 



Turtle Graphics 
Koala Pad Graphics 
Integrator 

Hires Circle, Line, Arc 
Music Editor 
Sound Control 

Interrupt Routines 



Interactive Compiler 
Romable Code Generator 
40K User Memory 
All Commodore File Types 
Conversational User 
Defined Commands 




Ordering Information: Check, Money 
Order (payable to MOUNTAIN VIEW 
PRESS, INC.), VISA, MasterCard, 
American Express. COD's $5.00 extra. 
No billing or unpaid PC's. California 
residents add sales tax. Shipping costs 
in US included in price. Foreign orders, 
pay in US funds on US bank, include 
for handling and shipping S10. 

■ Parsec Research 

Commodore 64 TM of Commodore 



SPECIAL 
INTRODUCTORY OFFER 
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only 

203™ Value 
Limited Time Offer 



Call: 
(415) 961-4103 

MOUNTAIN VIEW PRESS INC 

P.O. Box 4656 
Mt. View, CA 94040 

Dealer for 
PARSEC RESEARCH 

Drawer 1776. Fremont, CA 94538 




Questions Standard Procedure 



Dear Sir: 



Since publication of my Forth-83 
article in BYTE (August 1984), I have 
received dozens of letters. Most readers 
seem to agree with Nicholas Pappas' 
letter in Forth Dimensions (VI/5) that 
decried the continuing growth of new 
"standard" dialects. 

I took no overt position in my article 
— it was a report, not an editorial — 
but I must agree. Forth-83 is marginal- 
ly better than fig-FORTH or Forth-79 
in some respects, but the changes do 
not significantly increase the 
language's power. Moreover, the 
changes are often just as subtle as they 
are radical. I feel sorry for the novice 
struggling to learn the differences in 
such fundamental items as division and 
do loops. 

Some of the most interesting corre- 
spondence resulting from the BYTE 
article has been reprint requests, al- 
most all from government or university 
officials of Soviet-bloc nations: Po- 
land, Cuba, East Germany, U.S.S.R., 
etc. In each case, I have forwarded 
copies of the article along with a re- 
quest for information on Forth use in 
their nation. I am enclosing one inter- 
esting response from Warsaw, Poland. 

Thanks for your help. 

Very truly yours. 



C. Kevin McCabe 
Chicago, Illinois 



Simpler Recursion 

Dear Editor: 

In the letter on recursion {Forth 
Dimensions VI/5), the suggestion can 
be made even simpler. Make SMUDGE 
immediate (if it isn't already) by [ l. 
Then, in Forth-83, GCD becomes: 



: GCD ISMUDGEl 

7DUPIF SWAP OVER MOD GCD 

[SMUDGE] THEN ; 



Peter Oppenheimer 
Princeton, New Jersey 



More Grass Roots 



Dear FIG, 



I just read in Forth Dimensions 
(VI/5) a letter by Lionel Hewett, which 
you entitled "Grass-Roots Forth." I 
had to reread the name several times to 
make sure that / had not written that 
letter. I could have. . . word for word. 

The article "How to Learn Forth" 
was the first article I have read in the 
five issues I have received of Forth 
Dimensions that was useful to me, a 
beginner in Forth. It informed me 
through the evaluation that both of the 
Forth implementations I have bought 
(at over $30 apiece) are doing my at- 
tempts at learning Forth more harm 
than good. 

Other purchases and investigations 
that have been useless in my attempts 
at learning Forth are the 6502 Source 
Listing and fig-FORTH Installation 
Manual. Both at $15 and both from 
you. 

Not counting the three books that 
were poor at best, I have over $1(X) in 
Forth material I can't use. (I have both 
of Brodie's books and they are good.) 

My point is: I am very interested in 
learning Forth, but everywhere I turn, 
I'm putting out cash and getting no 
where. Lionel said it best in his letter. 
Why can't I get a good, cheap imple- 
mentation of Forth for my specific 
machine? 

Soon, I will be upgrading my 
VIC- 20 to a Commodore 64. 1 have no 
plans to attempt Forth on my new 
machine unless I see some changes in 
the Forth community to be more "user 



friendly" (did I really say that?) to us 
beginners. 

It will make me unhappy to abandon 
this otherwise exciting project. 

Enclosed is one more renewal of my 
membership in FIG, in hopes that 
things will change. I hope it won't be 
my last. 



Sincerely, 



J. Grant Viening 
Wyoming, Michigan 



Thanks; it's the noisy disk drive that 
gets the most attention, so please tell us 
how we are and aren't serving your 
needs, as this reader has done. While 
we can't require vendors to adhere to 
the Forth standards or to publish more 
complete tutorials and documentation, 
we can try to help you over the largest 
obstacles, if you let us know about 
your problem spots. Write to "Ask the 
Doctor" with specific questions! 

— Editor 



Capital Idea 

Dear Marlin, 

I thoroughly agree with the com- 
ments by Jeffrey Lotspiech and 
Thomas Ruehle ("Automatic 
Capitalization in Forth," Forth 
Dimensions VI/ 1) regarding the supe- 
rior readability of lower-case Forth 
words. (Under their scheme, lower case 
may be used if desired for newly- 
defined words, while upper case is 
retained for the standard Forth words. 
All text may be typed in lower case, 
and is automatically capitalized where 
necessary.) 

I would hke to continue discussion in 
this area and question why we need to 
keep using exclusively upper case for 
the standard Forth words. Many 
Forths already allow case to be ignored 
(cont. on p. 7 ) 
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Forth Interest Group: 

An International Service Organization 



Forth Dimensions begins Volume 
VII this month, initiating another year 
of outstanding international service 
and activities by the Forth Interest 
Group. Let's take a moment to look at 
the past year and at some of the plans 
for this year. 

Growth continued, and many new 
FIG Chapters were added to the roster. 
Forth Interest Group members have 
organized Chapters world wide, which 
demonstrates the international interest 
in Forth. One of the largest and most 
active Chapters is the Republic of 
China's Association of ROC Forth 
Language. This group hosted a three- 
day international FORML conference 
at Taiwan's Tam-Kang University in 
September. Attendance exceeded 100, 
with several U.S.A. Forth Interest 
Group members attending and present- 
ing papers. One paper presented Forth 
programmed in Chinese, to demon- 
strate the versatility of Forth. 

Our first trip to China to participate 
in FORML conference programs was 
completed. It included a two-day 
conference at Shanghai's Jiao Tong 
University and additional university 
programs in Peking and Xian. We 
learned that China is eager to use Forth 
and has instituted programs in the 
universities so that students may learn 
and practice Forth. We also learned 
that China welcomes visitors and will 
keep one busy from morning till night 
visiting cultural centers, historical 
sites, factories, shopping centers, 
restaurants, etc. 

In the U.S.A., the Forth Interest 
Group's annual two-day convention 
was held in October in Palo Alto, Cali- 
fornia. Vendors exhibited an impres- 
sive array of Forth products. Technical 
sessions were excellent and included 
hands-on training for anyone interest- 
ed in learning Forth. 



The FORML Asilomar Conference 
in November had nearly 100 partici- 
pants, with a wide range of papers 
presented. Here was an opportunity to 
meet with top-flight Forth practition- 
ers. Charles Moore, inventor of Forth, 
Usted the remarkable capabilities of 
his Forth "chip," then in the final 
stages of development. Today, work- 
ing chips are available and the prom- 
ises of November are a reality. 

New books about Forth were pub- 
lished in the past year, including 
Thinking Forth, Mastering Forth and 
Forth Tools. These are excellent books 
and are available along with others 
from the Forth Interest Group. Each 
issue of Forth Dimensions has a publi- 
cation order form. 

This year, the Forth Interest Group 
has already presented continuous one- 
hour training sessions over three days 
of the West Coast Computer Faire in 
San Francisco. Apple and IBM com- 
puters were available for individual 
use. This was a very popular event. 

In September of 1985, the annual 
FIG convention is scheduled in Palo 
Alto, California. A complete con- 
ference program is planned to include 
the latest software and hardware devel- 
opments. Look forward to hardware 
developments based on the new Forth 
chip. Training will continue to be an 
important part of the technical pro- 
gram. 

A European conference is planned 
in October in Germany. It is called 
euroFORML and will be held in Stet- 
tenfels Castle near Heilbronn. This 
continues the international conference 
programs which have always been a 
part of the Forth Interest Group's 
activities. 

You will continue to find new publi- 
cations listed in the publications order 
form. The publications committee 
reviews and recommends publications 
regularly for this list. The Forth Inter- 
est Group believes that the publication 



service is very important in making 
publications available for world-wide 
distribution. 

Forth Dimensions articles are a con- 
stant source of new and educational 
material about Forth. You are en- 
couraged to recommend it to everyone 
interested in learning more about Forth 
and about the benefits of its use. 

These are activities the Forth Interest 
Group supports in meeting its goals 
and objectives of service to members 
and promotion of Forth. Your support 
is necessary to keep these services avail- 
able. Participate in Forth Interest 
Group events and tell others about 
them. 



— Robert Reiling 
President, Forth Interest Group 
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(cont. letters) 



in dictionary searches, and this would 
permit all-lower-case Forth or, perhaps 
more usefully. Forth in which upper 
case may be used selectively to high- 
light whatever we want. For some time 
now, I have been writing code in which 
upper case is used for each word as it is 
defined, and otherwise everything is in 
lower case. The result looks unconven- 
tional, but it is very readable once you 
get used to it. (I challenge readers to try 
it!) 

Why, then, do we persist with upper- 
case Forth? The only reason I can 
think of is tradition. Early keypunches, 
printers, etc. had only one case 
(upper), so languages such as Fortran 
and COBOL used upper case only. 
Those of us old enough to remember 
that Pascal had a forerunner called 



Algol will realize that it was an excep- 
tion; but one of its intended purposes, 
perhaps the primary one, was the pub- 
hcation of algorithms, not simply the 
programming of computers. That is, it 
was intended for people to read. I 
think the point is obvious. 

One possible objection that support- 
ers of upper case might raise is that 
upper-case code stands out clearly 
from lower-case comments. I beUeve, 
however, that comments can be sepa- 
rated out just as well by moving them 
over to the right, onto separate lines 
or, even better, to shadow screens. 

Most programmers today are used to 
the "lower-case look" of Pascal and 
C, both of which followed the Algol 
style of appearance. Writing Forth in 
upper case makes our program code 



more reminiscent of Fortran, COBOL 
or even (gasp, horror) BASIC! We are 
entering an era of bit-mapped displays 
and smart printers capable of handling 
all kinds of esoteric scripts. Should we 
persist with program text that looks 
Hke something out of the 1950s? I 
know nostalgia has its place, but surely 
this isn't it. Programs need to be read 
by people as well as by machines. If I'd 
written this letter in all upper case, 
everyone would have thought I was 
being ridiculous! 



Yours sincerely, 



Michael Hore 
Numbulwar, NT, Australia 
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Evaluation 

William F. Ragsdale 
Hayward, California 

"Ask the Doctor" is Forth Dimen- 
sions' health maintenance organization 
devoted to your aid in understanding 
and using Forth. Questions of a prob- 
lem-solving nature, on locating refer- 
ences, or just regarding contemporary 
techniques are most appropriate. 
When needed, your good doctor will 
call in specialists. Published letters will 
receive a preprint of the column as a 
direct reply. 

In his last two columns, the doctor 
addressed two approaches to learning 
Forth. First {Forth Dimensions VI/5) 
was a study-guide approach to learning 
from Leo Brodie's Starting Forth. Next 
we made rounds within the clinic 
(VI/6) to review Margaret Armstrong's 
Learning Forth. In this issue, we 
conclude by summarizing the evalua- 
tions, contributed by readers of Forth 
Dimensions, of commercial Forth 
systems. 

Your report from the cHnic for this 
issue has been built upon the contribu- 
tions of eleven readers. Appreciation 
is in order for the efforts of Jim Hen- 
derson (Thomson, Georgia), Chris Mc- 
Cormack (Huber Heights, Ohio), Guy 
Kelly (La Jolla, California), Terry Jaco 
(North Hollywood, California) and 
J.C. Halbrook (SterUng, Connecticut). 
Several others supplied evaluations but 
did not identify themselves. 

Summary 

Previously in Forth Dimensions, sev- 
eral reader's questions regarding learn- 
ing Forth were summarized by the 
good doctor: 

- How can I get started? - Which 
Forth? - Whom do I ask? 

The "Which Forth" question will be 
addressed by reporting upon the results 
of the questionnaire that concluded 
that column. The scoring method 
favored use of a standardized dialect, 
consistency with Starting Forth, docu- 
mentation and support. It was suggest- 
ed that a point total of seven or greater 
would indicate a system offering supe- 



rior value to anyone learning Forth. 
The implication: a score of six or less 
indicates a system which will impede 
your learning effort. 

The curtain is about to be raised. 
The audience is waiting with hushed 
expectation. The evaluations are in! 
May I have the sealed envelope, 
please? 

Summary 

We see from table one that the point 
total ranges from three to twelve. The 
maximum possible was thirteen. As 
mentioned, the scoring favors systems 
matching an established standard 
(Forth-79 or Forth-83) and the book 
Starting Forth. Both of these elements 
are supportive of self study. 

Our mail continues to confirm that 
systems weak on documentation and 
standardization are most associated 
with plaintive calls for aid. These are 
mostly fig-FORTH systems in public- 
domain libraries. Our conclusion is 
that the $50 to $150 saved over a com- 
mercial product will be quickly offset 
in the added frustration and extra ef- 
fort of learning Forth and the specifics 
of the implementation. 

Three readers evaluated SuperForth 
64 for the Commodore 64. All three 
emphatically praised the support and 
helpful attitude of Parsec Research. 
The 250-page manual, access to host 
files, decompiler/trace option and 
floating point are all given high marks. 
One quote: "I've dealt with Parsec 
for almost a year and have had very 
great success with their product and 
with their personnel. As a learning 
tool, I would find it hard to match the 
price/performance of a C-64 running 
SuperForth." 

Two readers evaluated C64 Forth 
from Performance Micro Products. 
With a score of 10, it only lost points 
for the editor, which is tailored to 
match the Commodore conventions 
rather than the usual Forth keys. The 
dialect is Forth-79 enhanced by a file 
interface, 167 pages of documentation, 
graphics and trace. 

One reader extended the rating scale 
to favor his choice, MMS Forth from 



Miller Microcomputer Services. This 
evaluator bumped MMS Forth to 31 
points, since raves were given to the 
editor, flexible use of RAM, and 
options. That survey form's point for 
support was inflated to three due to 
the excellent phone help. In fairness to 
all, on the uniform scale, this system 
wag a twelve on the scale of thirteen 
possible points. 

NGS Forth, 8086 Forth (LMI) and 
83 Standard PC-Forth (Kelly) are all 
available for the IBM PC. They all 
scored twelve, and any should be well 
received by the student. 

F83 is a public-domain system devel- 
oped by Mike Perry and Henry Laxen 
for the IBM PC, CP/M and 68000 
systems. While technically outstand- 
ing, it only lost points for no support 
and lack of printed documentation. 
Addition of Dr. Ting's Inside F83 (280 
pages, published by Offete Enterprises) 
raises this system to twelve points. 

The only problem case reported was 
VIC Forth for the Commodore 
VIC-20. This fig-FORTH based 
system only got points for object size 
and editor. The dialect, mass storage, 
support and options received no 
points. The manufacturer has gone out 
of business, but the product is still in 
distribution. This style system is being 
displaced in the market and illustrates 
the difficulty a newcomer may 
inadvertently face. 

If you perform your own evaluation 
or select a product based on this eval- 
uation, please remember that its pur- 
pose has been to indicate suitability 
for learning, and that seven or better 
is recommended. Other ratings would 
be appropriate for purposes such as 
product implementation or specific 
applications. 

Other Systems 

Several popular systems are notice- 
able by their absence. Evaluations 
of such systems as MVP FORTH, 
polyFORTH II, MasterFORTH and 
MacForth would be appreciated. Your 
faithful practitioner will also welcome 
further comments and evaluations that 
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Write it once! 



MasterFORTH 

Portable programming environment 



PRODUCT 



VENDOR 



RUNS ON PRICE POINTS 



8086 Forth 


Laboratory Microsystems 


CP/M-86 


$100 


12 


MMS Forth 


Miller Microcomputer 


TRS-80 


130 


12 






IBM PC 


250 




NGS Forth 


Next Generation Software 


IBM PC 


70 


12 


83 PC-Forth 


G. M. Kelly 


IBM PC 


25 


12 


F83 


No Visible Support 


IBM PC 


25 


11 






CP/M, 68000 




Super Forth 64 


Parsec Research 


Comm.-6'4 


96 


10 


C64 Forth 


Performance Microproducts Comm.-64 


70 


10 


VIC Forth 


HES 


VIC 20 


40 


3 



Table One 



may be summarized in a final tabula- 
tion for Forth Dimensions. 

When next we summarize reader 
evaluations, you will find the good 
doctor trading his white lab coat for 
formal dinner attire. We will never be 
as glamorous as the Academy Awards, 
but the appreciation of readers will be 
more sincere. 



Vendor Addresses 

Laboratory Microsystems, Inc., P.O. 
Box 10430, Marina del Rey, CA 90295, 
(213) 306-7412. 

G. M. Kelly, 2507 Caminito La Paz, La 
JoUa, CA, 92037. 

HES (out of business), product dist. by 
Mountain View Press, P.O. Box 4656, 
Mt. View, CA, 94040, (415) 961-4103. 

Miller Microcomputer Services, 61 
Lake Shore Road, Natick, MA, 01760, 
(617) 653-6136. 

Next Generation Systems, P.O. Box 
2987, Santa Cruz, CA 95055. 

No Visible Support Software, Box 
1344, 2000 Center Street, Berkeley, 
CA 94074. 



Parsec Research, Drawer 1776, Fre- 
mont, CA 94538. 

Performance MicroProducts, P.O. Box 
370, Canton, MA, 02120, (617) 
828-1209. 



About the author 

Bill Ragsdale has been using Forth 
since 1977 for personal and business 
projects. He is married to Anne, who 
did the production work on early Forth 
Dimensions. They have two children: 
Mary, age three and Michael, age one. 
For those of you who have been fol- 
lowing Mary's development, she now 
knows the alphabet and enjoys "Kiri's 
Hodge-Podge" on the Apple II (which 
she calls E-I-Oh, as in Old McDonald) 
and "My ABCs" on the PC. Michael's 
computer involvement is limited to 
chewing on its mouse-control wire. 
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Whether you program on 
^1 —J I Macintosh, the IBM PC, 
w — — y an Apple II series, a CP/M sys- 
i ^35^ tern, or the Commodore 64, 

your program will run un- 
changed on all the rest. — 
If you write for yourself, 5 S= 
MasterFORTH will protect — ~~' ~ ' ~ 
your investment. If you write for 
others, it will expand your market- 
place. 

™ MasterFORTH is a state-of- 
the art implementation of the 
Forth computer language. 
Forth is interactive - you have 
immediate feedback as you 
program, every step of the way. Forth is 
fast, too, and you can use its built-in macro 
assemblerto make it even 
faster, MasterFORTH's 
relocatable utilities, 
transient definitions, and headerless code 
let you pack a lot more program into your 
memory. The resident debugger lets you 
decompile, breakpoint, and trace your 
way through most programming prob- 
lems. A string package, file interface, and 
full screen editor are all standard features. 

MasterFORTH exactly matches the 
Forth-83 Standard dialect described in 
Mastering Forth by Anderson and Tracy 
(Brady, 1 984). The standard package in- 
cludes the book and over 1 00 pages of 
supplementary documentation. 



MasterFORTH standard package 

Macintosh $126 

i IBM PC and PC Jr (MS DOS 2.1) 128 

Apple II. II', lie, lie (DOS 3.3) 100 

CP/M 2.x (in sKveraf lorrriats}. 100 

Commodomet 100 

E!tt«nsiOTis 

Ftoating Point ( 1 984 FVG standard) $40 

Giaphira lApple II series) 40 

Module relocator(with utinty sources) ..... 60 

Printed source listing (each) 3S 

CuUloattons 

Mastering Fortfi (addilionai copies) S18 

Thirling Forth by LeoBrodte 16 

fk)nt>-83 International StmtJarrt , . 1 S 
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Application Tutorial 

Generic Sort 




John S. James 
Santa Cruz, California 

Application Tutorials focus on using 
Forth to get results, not on experimen- 
tal developments. This article advo- 
cates a design approach which employs 
the strengths of Forth to help write 
generic library routines, which can be 
used with no change at all in different 
applications. 

As an example, we present a simple 
routine to sort any kind of randomly- 
accessible data, in memory or on disk: 
numbers, records of any length, re- 
cords with one or more key fields and 
with ascending, descending or mixed 
sequences, variable-length records, ar- 
rays or other data structures, or mathe- 
matical entities with any "order" 
relationship, not necessarily alphabeti- 
cal or numerical. You can sort any of 
this data with no change at all to the 
sort routine. So you don't need to read 
or understand the sort in order to use 
it! 

The essence of what we call 
"generic" design is the radical separa- 
tion between an algorithm and its data. 
We use the well-known technique of 
vectored execution — allowing one 
routine to accept a pointer to another 
routine, and then executing it when 
appropriate. By generic design we 
mean not only vectored execution, but 
also a logical factoring of the job to be 
done so that the algorithm being writ- 
ten can be blind to the data on which it 
operates. Developers can then use these 
routines on great varieties of data 
types, formats and structures, even 
those never considered by the writers 
of the routines. 

Overview 

What does Forth need most, in order 
to become more widely useful and ac- 
cepted in the computer industry? One 
of the most critical advances would be 
the widespread use of standard lib- 
raries of routines. We need the system 
software, documentation and shared 
conventions to support developers who 
can then take large modules of code — 
designed and programmed at various 
installations with different data for- 



mats and programming conventions — 
and re-use these modules in new con- 
texts. 

The modules should remain 
identical, usable with no changes at all, 
so that their users do not need to learn 
their internals, and do not risk 
introducing errors into software which 
may have been well tested through 
prior use at dozens or hundreds of 
installations. 

One contribution to the development 
of standard libraries would be wider 
use of generic routines, when possible. 
For example, a formula evaluation 
might be defined first for single- 
precision arithmetic operations — add, 
subtract, multiply and divide — and 
then used unchanged for double- 
precision or complex numbers, or for 
other data entities. This flexibility 
requires (1) that the procedure make 
sense in its new domain and (2) that 
only the operators to be changed (the 
arithmetic, in the above example) 
know about their data; nothing else 
within the algorithm being program- 
med can know the length or format of 
the data items. 

This article shows another example: 
sorting. Some sort algorithms can be 
defined in terms of only two operations 
(compare and exchange) which know 
about the data being sorted. Both 
operations take two arguments, indices 
or other pointers to the two items to be 
compared or exchanged. Comparison 
returns one result, a truth value; each 
operation may also return an error-test 
flag. The sort routine itself needs three 
arguments: pointers to the two rou- 
tines, and the nuniber of items to sort. 
It need know nothing about the format 
of the data. 

Whoever uses the sort is responsible 
for defining the comparison and ex- 
change operations for the particular 
data to be sorted. These definitions 
know the length and location of key 
fields, whether the sort is ascending or 
descending, etc. They must handle any 
resource management required, such as 
use of Forth buffers if the data is on 
disk, or memory management if 
variable-length records were being 
sorted. 



Design Details 

To simplify this article, we have il- 
lustrated it with an easy, exchange-sort 
algorithm, not an optimal method. 
Performance falls off sharply when 
many items must be sorted. (For a 
faster program, note Wil Baden's 
"Quicksort and Swords," Forth 
Dimensions VI/5. That program uses a 
generic design like the one presented 
here, although the user interface is 
different.) 

Let's call the routine we are defining 
SORT and the operations it uses 
COMPARE and EXCHANGE. SORT will 
call these operations repeatedly, and 
must be able to tell them which items to 
compare or exchange; COMPARE and 
EXCHANGE must be able to find each 
item, given its position in the current 
sequence. We will use zero-origin in- 
dexing, requiring that COMPARE and 
EXCHANGE accept arguments zero 
through n-1, where n is the number of 
items to be sorted. COMPARE should 
return a true flag if the items must be 
exchanged, false otherwise. Therefore, 
it should return false for the equal 
case, to avoid an unnecessary ex- 
change. 

For simplicity, we wrote this example 
program to allow up to 32K items. It 
could easily be expanded to use unsign- 
ed or double-precision arguments. 

Optimization 

The key challenge here is that we 
know nothing about the items being 
sorted. Still, some optimization can be 
planned. 

Since exchanges might be expensive 
(for very long records, for example), 
we should avoid doing them unneces- 
sarily. In this example, instead of 
doing a bubble sort, we find the mini- 
mum (or maximum) item, and then 
exchange it, once, into its final place. 

The data may be in memory or on 
disk. If on disk, in most cases each 
item will fit within a single Forth buff- 
er, instead of spanning buffers. Then 
we need at least two buffers for reason- 
able performance — one holding the 
minimum (or maximum) found so far, 
the other for the item with which it will 
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next be compared. Note that sort can- 
not keep the minimum item in memory 
in order to optimize, as it has no idea 
of the size of the object being sorted, 
or how to move it; or the size, location 
or structure of its key; or whether the 
object is on disk in the first place. 

Error Control 

SORT and also the compare and 
EXCHANGE defined by the user, could 
each return an error flag to the stack; 
non-zero could indicate error. For ex- 
ample, COMPARE and exchange might 
flag an error if a data item were incor- 
rect or unreadable due to disk failure. 
SORT might abort and return an error 



flag in that case. For this tutorial ex- 
ample, we have omitted error flags. 

Examples of Use 

Note that the sort is in screens two 
and three. The rest of the code shows 
examples. 

Screens six, seven and eight each 
have one example: sorting fifty binary 
numbers in RAM in ascending se- 
quence; sorting fifty 64-character 
records on disk (major key: columns 
1-3, ASCII, ascending; minor key: 
columns 11-15, ASCII, descending); 
and sorting fifty entire Forth screens 
(key: columns 1-64, ASCII, 
ascending). Incidentally, the timings 



are 2, 17 and 625 seconds, respectively, 
using the F83 version of Forth-83 on 
an IBM PC with floppies. These poor 
showings result from the inefficient 
sort algorithm and the time to move 
data on the disk. 

Note that in Forth-83, the "tick" 
operation (the single quote) must be 
replaced with ['] if used inside a colon 
definition. 

When you write COMPARE or 
exchange for items on disk, be careful 
to use the buffers properly. An ab- 
solute address within a Forth block 
buffer becomes unreliable after any 
other I/O is done, because the same 
block may then be assigned to a dif- 
ferent buffer. Do not store such an 
address for later use. Instead, either go 
through BLOCK again to re-access the 
data later, or move the data out of the 
buffer into other memory and use it 
from there. 

Future Improvements 

The best way to improve this routine 
would be to use a more efficient sort 
algorithm. For tutorial purposes, the 
one given here is adequate. 

This example SORT is not re-entrant; 
it uses ordinary variables to store its 
arguments. We suggest that developers 
of transportable library modules use 
local variables, rather than elaborate 
stack manipulation, to get re-entrant 
code. Local variables have not yet been 
standardized in Forth; see the 
Proceedings of the 1984 Forml 
Conference for some excellent papers 
on the subject. 

Incidentally, we could make SORT 
run a httle faster by eliminating the 
mechanism of sending addresses which 
then require use of EXECUTE. Instead, 
COMPARE and EXCHANGE could be 
defined and used by SORT like any 
other words in the dictionary. But 
some generality would be lost — for 
example, the ability to sort different 
kinds of data structures with the same 
object code. 

Examples two and three show that 
EXCHANGE could easily be paramet- 
erized and made available as a utility. 
EXCHANGE might even be put inside the 
sort, which could then have a tem- 
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This program will sort any randomly-accessible data. 
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either in RAM or on disk. To use it, you must write two 
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routines: one to compare two of your data items, and the 
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other to exchange two of them. 
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To simplify this tutorial, we have used an exchange 
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sort, which is Inefficient for large numbers of items. 
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Quicksort could be substituted for a production version. 
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1 


VARIABLE A-COMPARE? \ Address of Compare routine 




2 


VARIABLE A-EXCHANGE \ Address o£ Exchange routine 




3 


VARIABLE N \ Number of items to be sorted 




4 

5 




DO-COMPARE? \ Nl N2 -- ? ;P Compare two "items" 




6 




A-COMPARE? S EXECUTE ; 




7 




DO-EXCHANGE \ nl n2 -- ;P Exchange two "items" 




S 




OVER OVER <> IF A-EXCHANGE 9 EXECUTE 




9 




ELSE DROP DROP THEN ; \ Don't exchange item with itself 
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14 








IS 
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1 




FIND-MIN \ nl -- n2 ;P Find min (max) from nl on 




2 




N a OVER DO \ Look at all items from nl on 




3 




DUP 1 DO-COMPARE? IF DROP I THEN S Replace if new min 


4 




LOOP : 




5 




NSORT \ -- ;P Ordinary case of sort, 3 or more items 




6 




N 1- DO I FIND-MIN I DO-EXCHANGE LOOP ; 




7 




SORT \ acompare aexchange n -- ;P Save arguments, test 




8 




N ! A-EXCHANGE • A-COMPARE? ! 




9 




N e 1 > IF NSORT THEN ; \ If less than 2, we're done 
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12 








13 








14 








IS 
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Scr # 6 A:FD.BLK 

\ Exonple 1: Sort 50 binary numbere in RAM 04HaraS JJ 

1 CREATE DATA 100 ALLOT 

2 : X \ n -- a ;P Get address of nth element in DATA array 

3 2 • DATA + ; 

4 : COMPARE \ nl n2 -- ? ;P Compare two items, given item #s 

5 SWAP X 9 SWAP X S > ; \ Ascending, so exch if lat is > 

6 : EXCHANGE \ nl n2 -- ;P Exchange two items 

7 DUP X e ROT ROT \ Save a copy of one value, 3rd on stack 

8 OVER X B SWAP X I \ Hove the other value into place 

9 X t ; \ Move the copy into place 

10 : SORT-TESTl \ ;P Sort the array 

11 C'] COMPARE I'l EXCHANGE 50 SORT ; 

12 \ Note: if test from keyboard, use ' , not C'] 
13 

14 
15 

Scr # 7 A:FD.BLK 

\ Example 2: Sort 64-character records 04Har85 J J 

1 \ Note: uses F83 string compare, COMP al a2 n -- -1101*1 

2 10 CONSTANT START-BLOCK \ First block taken as 64-char records 
3:X \n--a ;P Get address of nth data element 

4 64 • 1024 /MOD START-BLOCK * BLOCK ■► ; 

5 : COMPARE \ nl n2 -- 7 ;P Compare two items, given item #s 

6 X PAD 15 CMOVE V Get one key out of block buffer 

7 X DUP PAD 3 COMP ( Major keys ) ?DUP 0= IF \ Need minor 

8 DUP 10 ♦ PAD 10 * 5 COMP NEGATE THEN 

9 SWAP DROP < Arg ) 1 = ; \ If ^-1, from either key, exch 

10 : EXCHANGE \ nl n2 ;P Exchange two items, given item #s 

11 DUP X PAD 64 CMOVE OVER X PAD 64 * 64 CMOVE 

12 X UPDATE PAD 64 SWAP 64 CMOVE \ Can't move buf to buf 

13 X UPDATE PAD SWAP 64 CMOVE ; 

14 : S0RT-TEST2 \ -- ;P Sort 50 64-byte records on disk 

15 ['] COMPARE ['] EXCHANGE 50 SORT FLUSH ; 

Scr # 8 A:FD.BLK 

\ Example 3: Sort entire Forth screens 04MarSS JJ 

1 \ Note: uses F83 string compare, COMP al a2 n -- -1101*1 

2 10 CONSTANT START-BLOCK \ First of the blocks to be sorted 

3 : X \ n -- a ;P Get address <in buffer) of nth block 

4 10 ■► BLOCK ; 

5 : COMPARE \ nl n2 -- ? ;P Compare two blocks, first 64 char 

6 X PAD 64 CMOVE \ Get one out of the buffer 

7 X PAD 64 COMP 1 = ; 

8 : EXCHANGE \ nl n2 -- ;P Exchange two blocks 

9 DUP X PAD 1024 CMOVE OVER X PAD 1024 + 1024 CMOVE 

10 X UPDATE PAD 1024 * SWAP 1024 CMOVE 

11 X UPDATE PAD SWAP 1024 CMOVE ; \ Note need 2K bytes at PAD 

12 : S0RT-TEST3 \ -- ;P Sort 50 screens 

13 ['] COMPARE ('] EXCHANGE 50 SORT FLUSH ; 
14 

15 



porary memory area, perhaps a few 
hundred bytes or so, for efficiently 
exchanging long data items piece by 
piece. SORT would have to be given the 
record length in that case. 

Not only EXCHANGE but COMPARE 
also could be moved inside the sort. 
But then all of the information about 
the keys would have to be passed to 
SORT — not only the record length. In 
this extreme case, our routine would 
have become an ordinary sort package. 
It would have lost its versatility, be- 
cause it would have to embody as- 
sumptions about the data, instead of 
letting its users manage their own data 
by programming. 

Importance 

The simple sort routine given here 
may not convey the practical impor- 
tance of generic design, because this 
program could easily be rewritten every 
time. But the sort could be much more 
elaborate; for example, it could scan 
the data and select the best of several 
algorithms. Either the sort and/ or the 
routines passed to it could be partly or 
entirely in code, with no problem of 
compatibility between code and high- 
level. 

The speed penalty for transferring 
control to outside routines appears to 
be insignificant, even if an all-code 
generic program is compared with a 
special-purpose sort written entirely in 
code. The significant cost of using the 
generic design approach is that not all 
algorithms can be written in terms of 
COMPARE and EXCHANGE, Or any other 
predefined s^t of operations. In many 
cases this cost will be worth paying. 

Note that Forth gives us the flex- 
ibility to design modular program ele- 
ments within the continuum between 
finished appHcation packages and 
special-purpose programs written from 
scratch. Few higher-level languages 
encourage users to pass a subroutine to 
a module, which then executes that 
subroutine without knowing anything 
about its data. 

Other Similar Aproaches 

Many programming languages use 
systems of data abstraction or hiding 



to separate modules, reducing com- 
plexity and the chances of error by 
preventing side effects. In most of 
these systems, the subroutine knows 
about the data, but the calling program 
does not. Here, the roles are changed. 
The calling program knows about the 
data, and it passes a module which also 
knows about the data into a sub- 
routine, which does not know about 
that data but executes the module at 
appropriate times. The module com- 
municates with the subroutine by its 
normal input and output, and it com- 
municates with the calling program by 
directly affecting its data, as it was 
designed to do. Other language con- 



structs relevant to this approach in- 
clude the "generic procedures" of 
ADA (which are templates resolved at 
compile time) and the "operators" pf 
APL (which accept routines as argu- 
ments — for example, the inner- 
product operator accepts + and * to 
perform matrix multiplication). 

Forth is more extensible than these 
languages, and it offers a key advant- 
age of very low expense for experimen- 
tation. We can quickly put program- 
ming concepts to the test. Practical 
program modularization presents un- 
solved problems. Useful results, not 
fixed rules known in advance, serve as 
the guides in this effort. 
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TM 

The ForthCard 



STAND ALONE OPERATION 

STD BUS INTERFACE 

EPROM/EEPROM 
PROGRAMMER 



RS-232 I/O 
PARALLEL I/O 
ROCKWELL FORTH CHIP 




Evaluation Unit 

$299 

Part #STD65F11-05 includes: 
ForthCard, Developnnent 
ROM, 8Kbyte RAM, Manuals 



OEM Version as low as 
Part #STD65F 11-00 $^00 
does not include I ww 
memory or manuals 



The ForthCard provides OEMs and end 
users with the ability to develop Forth and 
assembly language programs on a single 
STD bus compatible card, 

Just add a CRT terminal (or a computer 
with RS-232 port), connect 5 volts and you 
have a self contained Forth computer. 

The STD bus interface makes it easy to 
expand. 

Download Forth source code using the 
serial port on your PC. Use the onboard 
EPROM/EEPROM programming capability 
to save debugged Forth and assembly 
language programs. Standard UV erasable 
EPROMs may also be programmed with 
an external Vpp supply. 



NEW! Options and Application Notes 

Electrically Eraseable PROMs (EEPROMs) 

FREEZE the dictionary in EEPROM (save in 
non-volatile memory, to be restored on 
power up) 

Download Software for your IBM PC or CP/M 

Non-Volatile CMOS RAM with battery 2K, 
8K, optional Clock/calendar 

Fast 2MHz clock (4MHz crystal) 

Disk Controller Card [bVA") 

Self Test Diagnostics 

Parallel printer interface 



Ask about our ForthBox^** 

A complete STD bus oriented system including 
the ForthCard, Disk Controller, Disk Drive(s), 
STD Card Cage, Cabinet and power supply. 



CALL TODAY FOR COMPLETE INFORMATION! 




9560 Black Mountain Road 
San Diego, CA 92126 

(619) 566-1892 



A Forth Spreadsheet 




Craig A. Lindley 
Manitou Springs, Colorado 

This article presents the 
implementation of a spreadsheet 
program written entirely in high-level 
Forth. It is based on the Laxen and 
Perry F83 model. People wishing to 
implement this program in other 
dialects of Forth will have to modify it 
accordingly. 

The spreadsheet presented here does 
not claim to contain all the fancy 
features provided by the majority of 
spreadsheet programs in the 
commercial market. It was developed 
as an example program to illustrate 
structured programming techniques. It 
does, however, support the following 
features: 

• 26 columns by 26 rows 

• auto-calculation mode 

• algebraic input of cell equations 

• full-screen editing 

• unlimited expansion 

• data replication 

(See table one for descriptions of 
supported commands.) 

It is important to understand that 
the basic spreadsheet presented here 
could be expanded to have all of the 
features of the more exotic spreadsheet 
programs on the market. A very 
important result of structured program 
design is the ease of modification to 
and maintenance of the program. Once 
the structure of this program is 
understood, modification should be an 
almost trivial task. To help with the 
understanding of this program, the 
pseudo-code design from which it was 
coded is included herein. [Due to the 
length of this article, the forty-five 
screens of source code were deferred to 
the following issue. — Ed.] 

Program Operation 

We will concentrate our attention at 
this time on the operation of the 
program. To compile the program 
under Laxen and Perry's F83 after you 
have entered it, simply type: 

open spread. blk <cr> 
1 load <cr> 



COMMAND 
C 



(■ontrol 
c/ontr ol 



S p r e a d s !i e e t C o n m a n d s 
DESCRIPTION 

A 1 :i. o w s i n p i. i t o f c o 1 u m r i n a m e s . Mode t e i' m ;l n a t e d b y 
entering a <CF*> to the proyraM proMpt. 

Replicate cell data. This will copy data fron the 
currently selected cell (< >) for the specified 
n u M b e r of c o 1 u n n s . 

Input cell data. If auto-calculate node; in effect, 
spreadsheet will be recalculated autonatical ly . 

Input cell equation. Input terwinsted by <CR>. 

C 1 1 an 13 e n u n b e i- e n t r y / d i s play f o r n a t . N o r m a 1 o r 
d o 1 1 a r s a n d c e r 1 1 s f o r m a t . 

(3o to the specified row colunn. Selected cell is 
Made CUV v ei it . 

C h 3 n <i e s p r e 3 d s h e e t n o d e . A u t o -■ c a 1 c u 1 3 1 e or n o r m a 1 . 

New. C 1 e a r s e :c i s t i n g spreads h e e t » All ri a m e s 
equations and data are deleted. 

Change calculation order. Either rows then coluMns 
o r c o 1 u M n s t h e 1 1 r o w s . 

P e r f o r M spreadsheet calculations. E o r c e s 
recalcijlation . 

Q I.J i t s p read s h e e t . 

Iiipub row iiaMes. Mode terwinated by entetM. ng a <CR> 
t o t h e p r g r a m i > r o m p t . 

Move CN.irreiit cell one positi. cii left. 
Move t::i..ir VM:-;rit cell orie posit iori r:i. ght. 
Move current cell one positon upwards. 
Move current cell one position downwards. 
Move to l;;!':>t coJ. v.tMri arid display * 
Mi:ive to fir'jrt (;M;jli..iMi"i and display. 
Move four columns left. 
Move f o u c o i M n s right. 

(3 1 J to fir^:it vciu arid display. 
Co to last row and display. 



1. All alphaheti 
c. o r'l t-\ 3 ri '1 .. i ri . A 1 



c cof^nands are pTM:M:ei;jsed by the I'orth woT^d 
1 otf ietMii av-e pro(:^e:ii^:>ed by c(jritr ol„„ :i, ri . 
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Title 




Jan 


feb 


Mar 




a p r 
















incoMe 


01 


$2750 . 


1 $2750.0 


l< $2750. 0>1 


$2750.0 1 




1 1 


*0.0 


1 $0.0 


1 $0 


.00 1 


$0.00 1 


loan principle 


2! 


$63,45 


1 $63.45 


1 $63.45 1 


$63.45 1 


ItDat'i interest 


31 


*757.83 


1 $757.83 


1 $757.83 1 


$757.83 1 


loan insurance 


41 


$37.50 


1 $37.5 


1 $37 


.50 1 


$37,50 1 




SI 


$0.00 


1 $0.00 


1 $0 


.00 1 


$0.0 1 


car payment 


61 


$200 .61 


1 $20 0.61 


1 $2 


.61 1 


$ 2 U ,61 i 


car gas 


71 


$120.31 


1 $20 0.21 


1 $36 


.32 1 


$105,63 1 


car nisc naint. 8 1 


$0.00 


1 $20.00 


1 $0 


.00 1 


$45.60 1 




91 


$0 .00 


1 $0.00 


1 $0.00 1 


$0,00 1 


uti 1 it ies 


101 


$230 .54 


1 $230.54 


1 $230.54 1 


$230.54 1 


savings accoun 


t 111 


$50 . 


1 $500.00 


1 $50 


.00 1 


$50 0.0 1 




121 


$0.00 


1 $0.0 


1 $0 


.00 1 


$0.0 1 


cost of life 


131 


$1910 .27 


1 $2010.14 


1 $2150 


.25 1 


$1941.16 1 


Money left 


1^1 


$839.73 


1 $739.86 


1 $599.75 1 


$808.84 1 


See text for details 


















Figure One 









which will start the process. At this 
time, the screen will clear and the 
message 

Spreadsheet Compiling 

will appear. The F83 system prompt 
"ok" will reappear when the 
compilation is completed. To execute 
the spreadsheet program, type: 
spreadsheet <cr> 

and you will see the display shown in 
figure one-a. Notice that at any one 
time, the display shows four columns 
and fifteen rows of the 26 x 26 
spreadsheet. Every row/column 
intersection is referred to as a cell of 
the spreadsheet. Further, the cell 
surrounded by the greater-than/less- 
than symbols is called the "current 
cell." Data and/or equations can only 
be entered at the current cell. 

Positioning of the current cell is 
controlled by the cursor arrow keys 
and the G (or Go-To) command. If the 
current cell position tries to leave the 
display window, the window will scroll 
to keep the current cell position on the 
display. See table one for a list of all 
commands used for display 
positioning. 

As an example of how this 
spreadsheet is used, let's construct a 
simple home budget sheet. Figure one- 
b shows how this might look when we 
are finished. The first step in building a 
new spreadsheet is to give the various 
rows and columns names. The column 
names shown in the figure correspond 
to the months of a year. The various 
row names are shown on the left of the 
figure. 

Column names are input to the 
spreadsheet program by selecting "C" 
from the command menu. This 
command will prompt for the column 
letter at which to begin the naming, 
and then for each of the desired names. 
For our example, enter (starting at 
column A) the three-letter 
abbreviations for the twelve months of 
the year, each followed by a <cr>. 
After inputting "dec" for December, 
hit <cr> twice to exit the column- 
name entry mode. 

Row names are entered in exactly the 
same manner. The row-name entry 
mode is selected via the "R" 
command. If you wish to leave a blank 
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line for a particular row, enter a space 
followed by a <cr>. Entering just a 
<cr> will terminate this mode of 
operation. 

Because our budget spreadsheet will 
be used for monetary quantities, we 
must select the dollars/cents format 
for our display. This is accomplished 
by selecting the "F" — for Format — 
command and then selecting the 
dollars/cents mode. You will notice the 
display now shows "$0.00" for each 
entry, instead of just "0". 

To place data into our spreadsheet, 
use the cursor positioning keys to place 
the current cell at row 0, column A, if 
it is not there already. Select the "D" 
command to enter data at this location. 
Enter "2750 <cr>" (the trailing 
decimal is implied). In this example, 
our income is assumed to be constant 
from month to. month. Use the "A" 
command to enter this data again for 
the eleven subsequent columns of this 
spreadsheet. If you use the cursor 
positioning keys to move the display 
window around on the spreadsheet, 
you'll notice $2750.00 is entered as the 
first entry in each month. 

Loan principle, interest, insurance, 
car payment, utilities and saving 
deposit are also the same amount for 
each month, so enter them in the same 
manner. Quantities that change from 
month to month, hke car maintenance 
and gasoline, must be entered 
separately, using the "D" command 
described above. 

The final two rows on the 
spreadsheet — money left and cost of 
life — are calculated items. By this, I 
mean they are dependent on other 
amounts already entered in the 
spreadsheet, and will require equations 
to be entered for these quantities. 
Using the cursor positioning keys, 
position the current cell at 13A in 
preparation for equation input. Now 
select the "E" — or Equation — 
command to input the following 
equation: 

2A + 3A + 4A + 6A + 7A + 10 A 
+ 11 A <cr> 

Note: The spaces between the 
characters are very important for 



Psuedo-code for Forth Spreadsheet 



PROCEDURE SPREADSHEET (spreadsheet) 
output initial screen display <dis_screen) 
do forever 

get operator input (IBM_key) 

if control then 

process control input (coritrol_in) 

else 

process coMMand input <coMM3nd_iri) 

end if 

display current status (dis_status) 

enddo 



PROCEDURE PROCESS CONTROL INPUT (control_in) 



do case 


of control 


instruction 






hoMe key? 


do top row 


( top_row) 


up 


arrow 


do 


up arrow 


(up_arrow) 




P<3 Up 


do 


left ^ coluMns 


< left.'l.cols) 


left 


arrow 


do 


left arrow 


< lef t_ar row ) 


r ight 


arrow 


do 


right arrow 


(right_arrow> 




end 


do 


bottoM row 


(bottoM_row) 


down 


arrow 


do 


down arrow 


( down_3r r ow ) 




pQ Dn 


do 


right colunns 


<r ight.'^.ools) 


left 


arrow 


do 


first coluMn 


(f irst_col ) 


^ rght 


arrow 


do 


last coluMn 


( last_col ) 


else 











error condition <beep) 

endcase 
return 



PROCEDURE COMHAND INPUT (coMMand_in) 
do case of operator coMMand 

A5 replicate cell data 

CJ input colunn nanes 

D; input cell data 

E{ input cell equations 

F5 input nufiber display for Mat 

Gt goto specified cell 

MJ set calculate Mode 

N; clear spreadsheet 

OJ set calculation order 

PJ perforM calculations 

QJ quit spreadsheet 

RJ input row naMes 

else 

error condition (beep) 

endcase 
return 

PROCEDURE GO TO (go._to) 
proMpt for row nunber 

if within proper range then 

proMpt for coluMn letter 

if within proper range then 

Make the specified row/col the current one 
set row/col displacenent to zero 
display the data on display (dis_data> 

endif 

end if 
return 



( 3g3iri_rep 1 ) 

( input_col_naMes) 

( input_cell_d3t3) 

( input_equ) 

( for Mat ) 

( go_to ) 

(Mode) 

(new) 

( order ) 

( per f orM_calc ) 

(quit_c3lc) 

( input_row_n3Mes ) 
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proper operation of the equations. If a 
mistake is made entering an equation, 
hit <cr> and then select "E" again 
and re-input the equation. 

Next, use the down-arrow cursor 
positioning key to move the current cell 
down one position. Input the equation: 

A - 13 A <cr> 

This equation subtracts income from 
our expenses to give us the amount left 
over. This amount will always be 
displayed in cell 14A. Use this same 
technique for each of the twelve 
monthly columns. 

After all data entry is completed, the 
spreadsheet can be calculated by 
executing the "P" — or Perform 
calculation — command. Before your 
eyes, you will see the totals for each 
month displayed. Scroll the 
spreadsheet to see each month's totals. 
To perform "what if" types of 
analysis, select the auto-calculate mode 
via the "M" — or Mode — command. 
This will force recalculation of the 
complete spreadsheet every time new 
data is entered. For example, decrease 
your February income (using the "D" 
command) and watch the result in cell 
14B. Even this simplistic example 
program demonstrates the power of 
this program for real-world situations. 

All commands supported by this 
spreadsheet program, as mentioned 
previously, are shown in table one. You 
might notice the absence of a 
command to print the spreadsheet on a 
printer. This feature could easily be 
added, or you can use the screen-print 
utility provided by many operating 
systems to make hard copy when 
necessary. 

To save a spreadsheet for further 
use, type the following: 

' spreadsheet is boot <cr> 
save-system filename.com <cr> 

This will create a stand-alone 
program called filename.com (or any 
other name you would like to give a 
.com file) that will execute immediately 
upon typing 

filename <cr> 

This spreadsheet program now has 
become a part of the F83 system and 
will execute (with all data and 



PROCEDURE REPLICATE CELL DATA ( agairi.rep 1 ) 
get data of currently Marked cell 

proMpt operator for nuMber of colunns to copy data into (*in) 
if nuMber of coluMns is greater than 

do for the specified nuMber of colufins 

Move cell Marker right one cell (ri9ht_arrow) 

copy data into cell 

enddo 

display data on screen (dis.data) 

end if 
return 



PROCEDURE FORMAT (forMat) 
output forMat proMpt to operator 
get response 
if = 1 then 

set forMat flag true 

else 

set forMat flag false 

end if 
return 



PROCEDURE PERFORM CALCULATIONS ( perf or M_calc ) 

calculate cells (calc_cells) 

display the data on the display <dis_d3t3) 

return 



PROCEDURE MODE <Mode) 
output Mode coMMand proMpt 
get response 
if = 1 then 

set Mode flag true 

else 

set Mode flag false 

endif 
return 



PROCEDURE NEN (new) 

ask again <y/n) 

if answer is yes then 

clear cells array 

clear row nawe array 

clear col nawe array 

erase all equations froM dictionary 

set row/col displsceMent to zero 

display the data on the display (dis_dat3) 

endif 
return 



PROCEDURE CnjIT (quit_cslc) 

ask again (y/n) 

if answer is vjes then 

abort prograM (abort) 

endif 
return 
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equations intact) immediately upon 
loading. 

Modifications for Your Computer 

If you have an IBM-compatible 
computer, this program will run 
without modification. Most other 
computers will need the key codes 
changed, however, to accommodate 
those returned by your system. 
Specifically, the spreadsheet words 
IBM_key (defined in screen seven), 
controLIn (defined in screen forty- 
four) and, finally, spreadsheet (defined 
in screen forty- five), will need to be 
modified. 

lBM_key is an IBM-specific word 
that allows access to all 256 of the key 
codes returned by the IBM keyboard 
driver. It maps the "extended key 
codes" produced by the PC into the 
range 128 - 256 decimal to allow easy 
access by the programmer. The 
control_in word case Statement is 
based upon these key codes. In your 
system, first determine what key codes 
you wish to use to access the functions 
selected with control_ln and then edit 
them into screen 44. Also, screen 45 
will have to be changed to select either 

control in or command In in 

accordance with the range of key codes 
you have chosen. After the appropriate 
changes to the key codes are made, the 
program should compile and run 
without difficulty. 

The coding of this spreadsheet 
program is a relatively straightforward 
process, given the finished design in 
pseudo-code. Two aspects of this 
implementation need to be discussed to 
make clear the operation of the 
program. These are (1) data structures 
utilitized and (2) algebraic equation 
usage. 

Data Structures 

Arrays are used for the data 
structures in this spreadsheet program. 
Two types — two dimensional and 
string arrays — are used to satisfy the 
data storage requirements of this 
program. A two-dimensional array 
called "cells" is used to hold all 
information about a particular cell of 
the spreadsheet. As defined in screen 6 



P R C E". DURE IN P U T EQUATION ( i n p u t ... e q u > 
proMpt for equation input 

Move definition preaMble to terMxnsl input buffer (tib) ares 
let operator input equation following preawble 
wove definition post-awble to tib 

stare total definition lenqth in *tib to nake forth 

think it all caMe fron the operator 
interpret equation definition into dictionary 

u s i n Q a 1 q e b i- a v o c a b i.i 1 a r y 
reselect forth vocabulary 
return 

PF(OCEDURE INPUT CELL DATA ( input_cBl l.data ) 

proMpt for data to be entered at currently Marked cell 

get input data (get*) 

15 1 ore i n to m a r k e d c e 1 1 

get Mode flag 

if auto calculation Mode selected then 

calculate all cells ( C3lc._cel Is ) 

end if 

display data on display <dis_data) 
return 

PROCEDURE GET INPUT DATA (get*) 
input 3 nuMber froM the operator 
get forMat flag 

if dollars and cents forMat selected then 
do case of decinal point position 

no deciMalJ Multiply nuMber input by 100 

1 deciMalt Multiply nuMber input by 10 

2 deciMalJ Multiply nuMber input by 1 

3 deciMalJ divide nuMber input by 10 



endcase 



end if 
return 



PROCEDURE INPUT COLUMN NAMES ( input_col _n3Mes ) 
proMpt operator for starting coluMn letter (A-Z) 
Make it the current coluMn (one displayed in upper left) 
do froM the current coluwn till final coluMn 
output coluMn identification letter 

input coluMn naMe froM operator into colunn nane array 
if entry = CR (no na«e input) 

undo (e:;it procedure) 

end if 

if ^ naMes have been input 

scroll display right to show theM (dis._col_ch3nge) 

end if 

display colunn naMes ( dis...col...naMes ) 
enddo 
return 



of the listing, each entry in the cells 
array (row,col) is six bytes in depth. 
The six-byte data sub-structure is 
organized as follows: 

0-1 Equation CFA storage 
2-5 Double Integer Value storage 

Bytes and 1 contain the code field 
address (CFA) of an equation, if one 
has been assigned to this cell. Zeros are 
stored in these locations if no equation 
exists. Bytes 2, 3, 4 and 5 contain 
storage for a double-length integer that 



is the current value of this particular 
cell. Specifying a particular row and 
column can, therefore, pinpoint in the 
cells array not only a cell's value, but 
also its defining equation. 

Two string arrays — col_names and 
row_names — are defined for storage 
of the user-specified column and row 
names. As with all arrays used in this 
program, an index value on the 
parameter stack followed by the array 
name will result in the array element's 
address being returned to the top of the 
stack. For example: 



FORTH Dimensions 



18 



Volume VII, No. 1 



PROCEDURE INPUT ROW NAMES ( inpijt_row_riaMes ) 
proMpt operator for starting row nuMber 
Make that row the current row 
do froM specified row to MaxiMUM row 

display row proMpt 

get row naMe fron operator 

store naMe in row nawe array 

if only CR entered 

undo (e;;it procedure) 

end if 

if 5 row nawes have been entered 

scroll screen vertically < dis_r ow_chanQe ) 



else 
end if 



display tow naMes 



enddo 
return 



PROCEDURE START ALGEBRAIC DEFINITION (aC) 
set operator stack to ewpty 
select algebra vocabulary 
return 

PROCEDURE RIGHT PARENTHESIS <)) 
do while iteMs on operator stack 
pop operator stack 

compile operator into forth dictionary (op>> 

enddo 

if left parenthesis found then 

backup operator stack pointer by ^ to reMove it 

else 



display "Missing (" error nessage 
abort prograM 



endif 
return 



PROCEDURE LEFT PARENTHESIS ( ( ) 

place CFA of )Missing routine on top of operator stack 
place a precedance of 1 on the top of operator stack 
push both onto the stack Oop ) 
return 

PROCEDURE INFIX (infix) 

HIGH LEVEL DEFINITION - coMpile 
get CFA of double integer Math routine 
place precedence on top of paraMeter stack 
store both into high level definition 

HIGH LEVEL DEFINITION - runtime at equation coMpxle tine 

get CFA and precedence froM high level definition to paraMeter 

stack if higher precedence than operator on top of operator 

stack then p lace CFA and precedence on top of operator stack 
else 

coMpile operator into definition 

endif 
return 

PROCEDURE END ALGEBRAIC DEFINITION (3a) 

pop remaining iteMs off operator stack and compile (op>) 
select forth vocabulary 
return 



3 col name 

will return the address of column name 
four (remember, array elements are 
numbered from zero) to the top of the 
stack. Also: 

3 4 cells 2+ 2@ 

will return the double integer value of 
the cell at the intersection of row 3 and 
column 4 to the top of the stack. The 
CFA of this cell's equation, if one 
exists, can be accessed by 

3 4 cells @ 

If a value other than zero is 
returned, the cell has been assigned an 
equation. The equation can be 
executed, with the final result being 
placed in the same cell, as follows: 
3 4 cells calculate 

See the listing for the definition of 
calculate. The spreadsheet words 
calc_r/c and calc_c/r use this technique 
for stepping through the spreadsheet 
and calculating each cell's value. 

Algebraic Equations 

To make the spreadsheet easier to 
understand and use, it was decided 
during the design phase to make all 
equations input by the operator in 
algebraic — as opposed to reverse 
Polish (RPN) — form. Suppose the 
current cell on the display (the one 
surrounded with the < > characters) 
is 3A, and you want it to contain the 
sum of cells OA, lA and 2 A. By 
selecting the input equation command 
"E" from the menu, you could enter: 

A + 1 A + 2 A <cr> 

From this time forward, the displayed 
value of cell 3A will reflect the sum of 
cells OA, 1 A and 2A after each time the 
spreadsheet is recalculated. The 
algebraic operators currently 
supported are +, -, *, / and mod, 
although other operators could be 
added easily by use of the technique 
shown in screens 30 and 3 1 . 

The words involved in algebraic 
equation processing are contained in 
screens 27 - 32 and 37 of the listing. 
Their operation is described somewhat 
in the program's design. The method 
utilized here was conceived by Michael 
Stolowitz (Forth Dimensions IV/6). 
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Basically, the program word input^equ 
builds an equation in the terminal 
input buffer (TIB) area in the form: 

: FORMULA a[ ]a 

[ cell ptr 

2+ ] literal 2! ; 

last @ name> cell_ptr ! 

where the area denoted by hyphens is 
the algebraic equation input by the 
operator. When the operator enters a 
carriage return, the entire equation is 
compiled into the Forth dictionary with 
the name FORMULA. The symbol a[ 
informs the compiler that an algebraic 
equation follows which will be 
terminated by ]a. The next portion of 
the equation, up to and including the 
semicolon, stores the double-integer 
result left on the stack by the algebraic 
equation into the storage area of the 
cell corresponding to the equation just 
entered. The final portion of the 
equation returns the CFA of the 
equation just entered for storage into 
the CFA storage area for this cell. The 
end result of this process is that 
whenever the CFA is executed, the 
compiled equation will be executed, 
with the result being stored back into 
the corresponding cell. (You will note 
that each equation stored in the Forth 
dictionary is given the name FORMULA. 
This does not matter, as each is 
executed via its CFA and not by its 
name.) For additional information on 
parsing of algebraic equations, see the 
article mentioned above. 



PROCEDURE RIGHT FOUR COLUMNS < r ight_'^_cols ) 
do froM to •I 

right arrow (r i9ht_3rrow) 

encido 
return 



PROCEDURE LEFT FOUR COLUMNS < lef t.'l.cols ) 
do froM to 

left arrow (left_3rrow) 

enddo 
return 



PROCEDURE BOTTOM ROW (botton.row) 

current row = 11 (msk row - 15) 

scroll display vertically ( dis_r ow„ch3riQe ) 

return 



PROCEDURE TOP ROW (top.row) 

current row = <top row) 

scroll display vertically (dis.row.change) 

return 



PROCEDURE LAST COLUMN <l3St_col) 

current colufin = W (Max col-'\> 

scroll display horizontally (dis_col_chan9e) 

return 



PROCEDURE FIRST COLUMN (first.col) 

current colunn = (first coluMn) 

scroll display horizontally ( dis_col_chan9e ) 

return 



PROCEDURE DOWN ARROW (down.arrow) 

get current Marked cell position 

if at bottoM of display then 

if not at last row possible then 

increMent current row nuMber 

scroll display vertically (dis_row_chan9e) 

end if 

else 

erase cell Marker (er ase_cel l_Marker ) 
increMent row displacenent froM current row 

endif 

place cell Marker on display (place_cell_M3rker ) 
return 



PROCEDURE UP ARROW (up .arrow) 

get current Marked cell position 

if cell is at top of display then 

if not 3t top of spre3dsheet then 

decreMent current row nuMber 

scroll displ3y vertic3lly ( dis_r ow_ch3nge ) 

endif 

else 

er3se cell Marker (er3se_cell_M3rker ) 
decreMent row displaceMent froM current row 

endif 

place cell M3rker (pl3ce_cell_M3rker ) 
return 
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PROCEDURE LEFT ARROW (left.arrow) 

get current Marked cell position 

if at left end of display then 

if not at first coluMn of spreadsheet then 
decrewent current coluMn nunber 
scroll display horizontally <dis_col_ch3nge) 

end if 

else 

erase cell Marker ( er 3se_cel l_Mar ker ) 

decreMent coluMn displaceMent froM current coluMn 

endif 

pli3ce cell Marker < p lace_cel l_M3rker ) 
return 



PROCEDURE ORDER (order) 
output operator proMpt 
get response 
if = 1 then 

set order flag true 

else 

set order flag false 

endif 
return 



PROCEDURE CALCULATE ALL CELLS (calc_cells) 
get order flag 
if set 

calculate coluMns and then rows (C3lc_c/r) 

else 

calculate rows and then coluMns (C3lc_r/c) 

endif 
return 



PROCEDURE CALCULATE COLUHNS AND THEN ROWS (calc_c/r) 

do froM the first to the last row 

do froM the first to the last coIumh 

get cell forMula address <CFA) 
calculate forMula (calculate) 

osnddo 

enddo 
return 



PROCEDURE CALCULATE ROWS AND THEN COLUMNS (calc_r/c) 

do froM the first to the last coluMn 

do froM the first to the last row 

get cell forMula address (CPA) 
calculate forMula (calculate) 

enddo 

enddo 
return 

PROCEDURE CALCULATE CELL FORMULA (calculate) 
get data at cell forMula address 

if not equal to (i.e. forMula assigned for this cell) 
execute forMula 

endif 
return 
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■k Complete VMS support 
-k Command line qualifiers 
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screen editor 
ir On line HELP facilities 
^ Start-up files 
•k Switchable log-files 
it System files with 

precompiled modules 
-k Cross compilers 

available for most 
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if B-tree symbol table of 
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PROCEDURE DISPLAY SCREEN (dis.screen) 
clear display 
place crjrsor on CRT 
display spreadsheet title 



(dis_bo3rder ) 
(dis_Meriij) 
( dis_col. .labels ) 
( dis_col_ri3Mes) 
( dis_r ow_l3bels) 
( dis_row_riaMes ) 



display boarder 
display Menu 
display coluMn labels 
display coluMn nawes 
display row labels 
display row nanes 
display data on display (dis.data) 
set row/col displacertent to zero 
display status (dis_status) 
return 



PROCEDURE SCROLL DISPLAY HORIZONTALLY ( dis..col_ch3nQe ) 

display coluMn na«es ( dis_col_naMes ) 

display coluMn labels (dis_col_labels) 

display data on display (dis_dat3) 

return 



PROCEDURE SCROLL DISPLAY VERTICALLY ( dis_row_ch3n9e ) 
displsy row nawes ( di5_r ow_naMes ) 

display row labels < dis_row_l3taels > 

display data on display <dis_dat3) 
return 

PROCEDURE DISPLAY CURRENT STATUS (dis_st3tus) 
place ci.irsor on CRT 
displsy current row i-iuMber 
place cursor on CRT 
displsy current coluMn letter 
pl3ce cursor on CRT 
<3et Mode flag 
if set then 

display "AUTO" i.e. 3uto calculate Mode selected 

else 

display "NORMAL" 

end if 

place cursor on CRT 
get order flag 
if set then 

displsy "C/R" i.e. C3lculate coluMns then rows Mode 

else 

display "R/C" 

end if 

pl3ce cursor on CRT and display coMMsnd proMpt 
place cell Msrker on display i.e. place < > aroijnd 

currently selected cell 

return 



(Cont. on page 25) 
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October 23, 1985 — November 3, 1985 

FORML 

Forth Modification Laboratory 
presents 

EuroFORML Conference 

Stettenfels Castle 

Heilbronn, Federal Republic of Germany 
Followed by 

SYSTEMS Trade Fair, Munich 

Computers and Communications 9th International 
Trade Fair and International User's Congress 

and 

Selected sightseeing tours and entertainment in Germany 
International technical conference October 25-27, 1985 Stettenfels Castle 



Software Metrics — Programs and methods to measure program performance, complexity, 
structure, programmer productivity, development methods, models, tools, program verification 
aids, and procedures. Individual participation is encouraged and attendees are requested to submit 
a conference paper. Conference proceedings will be pubUshed. 

SYSTEMS TVade Fair October 28 — November 1, 1985 Munich Fair Grounds 

Computers and Communications — This is a major international event covering computers and 
communications. The trade fair is scheduled October 28 through November 1, 1985. 

Guest and Tour Program — A complete program will be available for guests not attending the 
technical conference sessions. Sightseeing escorted tours are planned for the group. 

Reservations, authors instructions, itinerary, special group rate — Write to EuroFORML, Forth 
Interest Group, Post Office Box 8231, San Jose, CA 95155 or telephone the FIG Hotline (408) 
277-0668. East and West Coast departures are planned. Advance reservations are required. 

CALL FOR PAPERS 
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FOR TRS-80 MODELS 1 , 3 & 4 
IBM PC, XT, AND COMPAQ 



PROCEDURE DISPLAY COLUMNS NAMES (dis_col_ri3Mes) 

place cursor on CRT 

do froM current colunn four tiwes 

if current coluMn = nax colunn 
undo (exit procedure) 

endif 

place cursor on CRT 

get colunn nane fron coluMn nane array 
display at proper position 

enddo 
return 



PROCEDURE DISPLAY COLUMN LABELS <dis_col_l3bels) 
do froM current colunn four tiMes 

if current coluMn = nax coluMn 
undo <exit procedure) 

endif 

place cursor on CRT 
generate alphabetic label 
display at proper position 



enddo 
return 



PROCEDURE DISPLAY ROW NAMES ( dis_row_n3Mes ) 
do froM current row 15 tiwes 

if current row = Max row 

undo (exit procedure) 

endif 

place cursor on CRT 

get row nane froM row naMe array 

display at proper position 

enddo 
return 



PROCEDURE DISPLAY ROW LABELS ( di5_row_labels ) 
do froM current row 15 tiMes 

if current row = Max row 

undo (exit procedure) 

endif 

place cursor on CRT 
generate row nuMber 
display at proper position 

enddo 
return 



PROCEDURE DISPLAY DATA ON" DISPLAY (dis.data) 
do for all 4 possible screen display coluMns 

if coluMn displayed = final coluMn nuMber 
undo 

endif 

do for 15 possible screen display rows 



WHICH FORTH 
has all the 

POWERFUL 

APPLICATIONS? 

• DATAHANDLER 

database 

• FORTHWRITE 

word processor 

• FORTHCOM 

communications 

• GENERAL LEDGER 

accounting 

• GAMES 

for fun and technique 

• EXPERT-2 

expert system 

• TRADESHOW 

commodities terminal 

• GRAPHICS, 8087 sup- 
port, many other utilities 

You've Been 
Thinking About It. 
Isn't It Time to 
Put It to Viork? 




FORTH 



The total software environment for 
IBM PC, TRS-80 Model 1 , 3, 4 and 
close friends. 

•Personal License (required): 

MMSFORTH Syitwn DM (IBM PC) .... $24«.*5 
MMSFORTH SyKcm OM (TRS-80 1 , 3 or 4) 129.S5 

• Personal License (optional modules): 

FORTMCOM communications module .... $ skss 

UTtUTIES 39.95 

QAMES 39.95 

EXPERT-2 expert system S9.95 

DATAHANDLER SS.9S 

DATAHANDLER-PLUS (PC only, 128K req.) 99.95 

FORTHWRITE word processor 175.00 

•Corporate Site License 
Extensions irom$i,ooa 

• Some recommended Forth boolcs: 

UNDERSTANDING FORTH (overview) ... $ 2.95 

STARTING FORTH (programming) 18.95 

THINKING FORTH (tecltnlque) 15.95 

BEGINNING FORTH (re MMSFORTH) . . . 10.95 
Shipping/handling & tax extra. No returns on software. 

Asli your dealer to show you the world of 
MMSFORTH, or request our free brochure. 

MILLER MICROCOMPUTER SERVICES 
61 Lake Shore Road, Natick, MA 01760 
(617)653-6136 
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Free Power! 



if row displsyed = final row nuMber 
I.I n do 

end if 

position cijrsor on CRT 

get cell content at eel IsCr ow , coluMn] 

forMst cell data (fornat*) 



enddo 



enddo 
return 



PROCEDURE FORMAT CELL. DATA (format*) 
get fornat flag 
if set 

fornat as dollars/cents (fd.r) 

else 



for Mat as nuMher (d.r) 



end if 
return 



PROCEDURE ERASE CELL MARKER < er 3se_.cel l..Mar ker ) 
calculate cell display location ( C3l_.cel l_di sp._loc > 
unnark cell ( unwar k_cel 1 ) 
return 

PROCEDURE PLACE CELL MARKER ( p l3ce._cel l_Marker ) 
calculate cell display location ( cal_.cel l_.diap_loc ) 
nark cell (Mark_cell) 
return 



PROCEDURE ASK AGAIN (Y/N) 
place cursor on CRT 
display "Are you sure" Message 
get response 

convert to upper case character 
if yes then 

set result true 



else 

endif 
return 



notes: 



set result false 



3. The words shown in parentheses are the Forth words that 
were coded froM the pseudo code design. Refer to listing 
one for the 3ctu3l code generated froM this design. 
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HEN-SCRATCH ( n 
RANDOM DO 

PICK PICK PICK PICK PICK 
DROP DROP EMIT EMIT 

LOOP : 



FUNCTIONAL -SPEC ( pages — ?? ) 
1000 * 



DO 
LOOP 



HEN-SCRATCH 



--Scott Hetner & Charles Knowlton 
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applici 
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AY 3B912 systems and the interfacing 
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Includes instructions tor {wogrammirtg 
the 6522 internal nmer programming 
a visual drsplav 
the Gl soundchip and much mi 
Ordee.No. SM IBookl 
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OTd«.te*6i55 S 19.95 
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baraboerd and softwar 
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6522 I/O EKpafiments'card 
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2716 EPROM Burnet 
Ordar.No.60T 
RAM/ROM board 
Ordof Mo. 609 

LaarnFOHTH for APPLE I 

A subset of FigFORTH for the 
Order tUr. 6153 
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FREE 
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• GET ONE FORTH OR BOOK FREE WITH EVERY S 20.00 ORDER ■ 
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POWER FORTH for APPLE he, ATARI 
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Macro Generation 




Don Taylor 
Sydney, Australia 

In a past issue of Forth Dimensions 
(V/5), Jeffrey Soreff presented a 
method of writing macros in Forth. 
The idea was to put COMPILE before 
each non-immediate word, [COMPILE] 
before each immediate word, and 
make the whole thing IMMEDIATE. This 
certainly does the job but, of course, it 
leads to definitions in which every 
second word is COMPILE or [COMPILE]. 
Inspired by Soreff 's article, 1 set myself 
the task of writing a defining word that 
would create a macro from any 
segment of legal Forth code. A solution 
is presented in figure one. 

Typing: 
MACRO: <name> 

creates a dictionary entry for <name> 



and copies all the text following 
<name> up to the next semi-colon into 
the parameter field. The dictionary 
entry is completed by inserting | (offset 
by blanks) after the text. 

When <name> is encountered 
within a colon definition, it redirects 
the input stream to the text within its 
parameter field. Then, INTERPRET 
compiles the words that it finds 
there as though they were part of the 
colon definition. The input stream 
is restored to its original state by 
the word ] that occurs at the end of 
each macro. 

It is possible to nest the macros 
created by this approach, and it is not 
necessary to have defined any of the 
words within the macro at the time of 
its creation. Of course, these words do 
need to be defined before the macro is 
used. 



This solution to the problem has an 
obvious drawback. Namely, it con- 
sumes a large amount of dictionary 
space. On the other hand, it does allow 
a great deal of freedom and, since the 
macros are not needed after they have 
been used, space could be saved by 
loading them as TRANSIENT definitions 
(see the note by Phillip Wasson, Forth 
Dimensions III/6) and removing them 
after compilation of the words that use 
them. 

If compilation crashes within a mac- 
ro, TIB will be left pointing somewhere 
inside the dictionary. To restore 
normal input, use TIB! from figure one 
and FORGET the corrupted macro 
definition. 

The macros DO' and LOOP' given in 
figure two correspond in function to 
the macros with the same names 
provided by Jeffrey Soreff. 



: ASCII BL WORD 1+ C@ STATE @ IF [COMPILE] LITERAL THEH ; IMMEDIATE 
: MACRO,: CREATE ASCII ; WORD C@ BL C, ALLOT ASCII | C, BL C, 
IMMEDIATE 

DOES> R> BLK @ >R >IN @ >H TIB @ >R >R TIB ! 
BLK ! >IN ! ; 
: I R> R> TIB ! R> >IN ! R> BLK ! >R ; IMMEDIATE 

TIB @ CONSTANT TIB® 
: TIB! TIB® TIB ! ; 

Figure One 



MACHO: DO' 2DUP - 0> IF DO ; 

MACRO: LOOP' LOOP ELSE 2DR0P THEH ; 



EXAMPLE CR DO" I . CR LOOP" ; 

EXAMPLE CR 2DUP - 0> 



( Macro example ) 

( Equivalent code ) 

IF DO I . CR LOOP ELSE 2DR0P THEN ; 
Figure TXvo 



(cont.) 
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3 LIST 




Screen # 5 




fT? " TVio MA fPn CTon oT'o ■'fn.r* " 
Oil • lilc i'iiiOIvV-' Qxili'dl.a.iiKJL 




: MACRO: CREATE ASCII ; WORD C@ BL C, 


ALLOT ASCII 1 C, BL C, 






DOES> R> BLK @ >R >IN @ >R 


TIB @ >R >R TIB ! 


BLK ! >IK ! ; 




: 1 R> R> TIB ! R> >IH ! R> BLK ! 


>R ; IMMEDIATE 


TIB @ CONSTANT TIB® 




: TIB! TIB @ TIB ! ; 




( Example. cf. Forth Dimensions V/5 ) 




MACRO: DO' 2DUP - 0> IF DO ; 




MACRO: LOOP' LOOP ELSE 2DR0P THEN ; 




• ITY A M'DT IT nt) Tin ' T PT? T Pims ' . 

: JliAAirlrJjjj L-xt UU 1 • UK JjUUr J 




Ok 




5 LOAD 




The MACRO generator Ok 




EXPAND EXAMPLE 




CR 




2DUP 




- 

0> 




OBRANCH 1 8 




<D0> 




I 




CR 




<L00P> -8 




BRANCH 4 




2DR0P 




;S Ok 




3 4 EXAMPLE 




Ok 




4 5 EXAMPLE 




3 




Ok 




Figure Three 






PolyFORTHII 

the powerful multitasking/ 
multi-user operating system 

is now available for most 
micro-computers running — 

CP/M-80 
and 

CP/M-86 

Offers CP/M users: 

• An ability to run multiple 
terminals 

• Unlimited control tasks 

• Concurrent printer 
operation 

These advanced features combine 
with FORTH, Inc.'s powerful ver- 
sion of the FORTH programming 
language to offer CP/M users the 
ideal environment for all interactive 
and real-time applications. 

Featuring speed of operation, shor- 
tened development time, ease of 
implementation and overall cost- 
effective performance, this system 
is fully supported by FORTH, Inc.'s: 

• Extensive on-line documen- 
tation 

• Complete set of manuals 

• Programming courses 

• The FORTH, Inc. hot line 

• Expert contract programming 
and consulting services 

From FORTH, Inc., the inventors 
of FORTH, serving professional 
programmers for over a decade. 

Also available for other popular 
mini and micro computers. 

For more information contact: 

FORTH, Inc. 

2309 Pacific Coast Hwy. , 
Hermosa Beach, 
CA 90254 
213/372-8493 
RCA TELEX: 275182 ^ 
Eastern Sales Office 
1300 N. 17th St. #1306 
Arlington, VA 22209 
703/525-7778 

'CPIM is a registered Irademarif of Digital Research 
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Keywords — Where Used 




Nicholas L. Pappas 
Oakland, California 

We have created a number of tools 
to facilitate our work: HNDNO is one 
such tool. FINDNO tells which keywords 
use a given keyword. For example, 
when one wants to load Forth above 
SpOOh in memory, you quickly discover 
the need to replace < with u< so that 
addresses, which are unsigned 
numbers, are compared correctly. Or, 
when base changes are annoying, you 
may want to ask, "Which keywords 
change base, and where are those 
keywords used?" Suddenly, you need 
to know which keywords use < , BASE, 
HEX and DECIMAL. 

The basis for FINDNO is this: when 
keyword A uses keyword B, A's code 
body includes B's code field address 
(cfa). So we need to search memory for 
the two-byte cfa number starting at 
some address for some number of 
bytes. Consistent with Forth memory- 
reference keywords, the prefaces 

addr, number-of-bytes, cfa 

give FINDNO the data it needs to do its 
task. FINDNO starts searching at addr 
for number-of-bytes, looking for cfa 
(keyword B) in order to reveal 
keywords A using B. 

Proceeding in a simple way, we read 
each byte pair {addr @) while 
incrementing addr by one, not two. 
This means we search through memory 
from Forth's start address to the dp 
value. Since we read through name 
bytes and link field address bytes, as 
well as the code bytes, we take the risk 
of getting false reports. Incrementing 
addr by one avoids the complicating 
questions, "Where are the code cells, 
and does this Forth use byte cells 
(naughty, naughty) as well as word 
cells?" 

How does FINDNO work? With the 
cfa on top of the stack, the initial code 
fragment shown in Figure One leaves 
the stack values alone as it prints a 
friendly message telling us what is 
about to happen (e.g., "Looking for 
1624 Compile." 





(x 


= stack 


bottom) 


CR CR ." LOOKING 


FOR " Cfa 


n addr x 




DUP 4 D.R 










SPACE 










DUP 2+ NFA ID. 












Figure One 








CR 


cfa n addr x 








ROT ROT 


n addr cfa x 








OVER + addr+n addr cfa x 








SWAP addr 


addr+n cfa x 










Figure IHvo 










addr 


addr+n 


cfa 


X 


DO 






cfa 


X 


DUP I @ 


ni cfa 


cfa 


X 






f 


cfa 


X 


IF I 4 D. 


R SPACE 




cfa 


X 


I FINDID. 






f A 


X 


1 n Tj LN 










LOOP 






cfa 


X 




Figure Tliree 








BEGIN 


addr x 






DUP XLIT 


= fl addr x 






SWAP 1 - 


addr-1 


f 1 X 








Figure Four 








DUP 1+ P 


ni addr-1 


f 1 X 






DOCOL = 


f2 addr-1 


f 1 X 








Figure Five 








DUP 


f2 f 2 


addr-1 


f 1 


X 


IF^ 


f 2 


addr-1 


fl 


X 


OVER 1+ 


addr f2 


addr-1 


fl 


X 


4 D.R 










SPACE 










THEN 


f 2 


addr-1 


f 1 


X 




Figure Six 









Then we start a new line and 
manipulate the stack values to 
calculate a loop index and limit as 
shown in Figure Two. We have a 
known number of bytes to search, so a 



do loop that increments by unity is 
what we use. The loop index I is an 
address because the loop limits are 
addresses. Note the consequent 
simplicity in Figure Three. 
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ROT 
OR 
UNTIL 



fl 



f2 
f 3 



addr-1 x 
addr-1 x 
addr-1 x 



Figure Seven 



3 + ■addr+2 x (forward to pfa) 

NFA ID. X 
CR : 



Figure Eight 



NLP FORTH EDITOR 
SCR: 220 INSERT OFF 

CR ." scr utility 820512" 



1 

2 ' : CFA 5) CONSTANT DOCOL 

3 'LIT LFA CONSTANT XL IT 

4 : FINDID. ( addr ) 

5 BEGIN 

6 DUP XLIT = 

7 SWAP 1 - 
B DUP 1+ 5) 

9 DOCOL = DUP 

A IF OVER 1+ 4 D.R SPACE 

B THEN 

C ROT 

D OR 

E UNTIL 

F 3 + 

10 NFA ID. 

11 CR ; 
12 

13 : FINDNO ( addr nl n2 ) 

14 CR CR . " LOOKING FOR " 

15 DUP O 4 D.R 

16 SPACE DUP 2-»- NFA ID. 

17 CR ROT ROT OVER + SWAP 

18 DO DUP I a = 

19 IF I O 4 D.R SPACE 
lA I FINDID. 

IB THEN 

IC LOOP 

ID DROP ; ;S 



IE COPYRIGHT (C) 1983 

IF by Nicholas L. Pappas, PhD 



I @ is addr @ that leaves ni, which is 
compared to cfa so that flag / is non- 
zero if equal and zero if not equal. The 
if-then statement is skipped on false 
flags, LOOP increments the index by 
one and branches back to DUP for a 
look at the next byte pair. On true 
flags, the if-then statement executes to 
print the address holding a number 
equal to the cfa of B, leaves the address 
on the stack and executes rndid.. 
FINDID. assumes the number is indeed a 
cfa being used by a code body as it 
proceeds to print the cfa and < name > 
of the using keyword (keyword A). 
More later on FINDID.. 

Our useful friend cfa is still on the 
stack, so we end with drop ;. 

The basis for findid. is that docol — 
run-time code for : — is stored in 
keyword A's cfa. (Only colon 
definitions have cfa's in their code 
bodies, so this is real.) If the number ni 
is not really a cfa, then it is in an Ifa or 
part of a < name > . FINDID. still moves 
down memory through the next code 
body, looking for docol, and performs 
its tasks — producing a false report. 
(More later on false reports.) In the 
unlikely, yet possible, event there are 
no docols down memory, FINDID. does 
nothing and exits gracefully when LIT's 
Ifa is reached. If lit is not your first 
keyword, redefine XLIT accordingly. 

Here is how findid. works. Not 
knowing a priori where docol is, we use 
a begin-until loop for our search. We 
do last things first in order to avoid 
some stack manipulation and to be 
easier to read ("think-about . . . 
until"). First, test an exit possibility by 
checking for end-of-search and 
backing up one byte to the code .in 
Figure Four. 

In case our cfa is also docol we just 
left it, so the code in Figure Five 
follows. If f2 is true, we execute the if- 
then statement, printing the cfa of user 
A with Figure Six. Checking for an 
exit, we get both flags on top and do a 
logical-or operation, as in Figure 
Seven, to exit if f3 is true (non-zero) or 
to loop if it is false. When we exit, note 
that addr- 1-1 is the Ifa {Ifa = addr-2 
if addr is the cfa of the keyword). We 
want to print the < name > of our user 
A via ID. so we need its nfa (see Figure 
Eight). 
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Figure Nine 



In the examples, COMPlLE's "where- 
used list" includes colon. This is a false 
report, because the value 1606h 
(COMPlLE's cfa) happened to be within 
a user variable. So findid. backed up 
past douser (no docol in a user 
variable) and kept going until it found 
a docol — this happened to be in 
colon. The clue is the large difference, 
for a keyword, between the two printed 
addresses 668 and 6E9 (see the memory 
dump in Figure Nine). 

Note that the simple test DOCOL = in 
FINDNO can be replaced by an or test 
for docol, dovar, docon, douser or 
dodoes; we let it go, in the interests of 
simplicity. Also note that the 
immediate word [COMPILE] does not 
show up as expected. And, perhaps a 
review of where EMIT., KEY and 
TERMINAL are used is of interest. 
Finally, please note that a screen editor 
can be written which has a 
reformattable display complete with 
window roll-up and roll-down. 
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Simple Control of Search 

Not ONLY But 

Bill Stoddart 
Middlesbrough, England 



The story so far: 

"The evolution of Forth continues, 
particularly in the area of vocabularies. 
The latest step is a recognition of the 
importance of controlling the search 
order." Bill Ragsdale, 1982 FORML 
Conference 

"The ONLY Concept for Vocab- 
ularies" was submitted by Bill as an 
experimental proposal in the Forth-83 
Standard. It departs somewhat from 
the standard and from other systems 
(including fig-FORTH and 
polyFORTH), in that executing a voc- 
abulary name places that vocabulary at 
the start of the search order list, rather 
than actually specifying a search order. 
This paper argues that such a departure 
is not necessary. On the contrary, the 
standard forms a good basis for a set 
of simple and powerful words that give 
the Forth user complete control of the 
search order. 

Vocabulary handling in my 
83-Standard system is extended with 
four simple words: SEARCHES, ALSO, 
END-SEARCH and SEAL. These are all 
one-line definitions. They give 
complete cor^trol over the specification 
of search order. 

Consider the creation of a new 
vocabulary with the phrase: 

VOCABULARY APPLICATION 

When APPLICATION is subsequently 
executed, it specifies a search order of 
APPLICATION followed by FORTH. 

Suppose we want APPLICATION to 
specify a search order of APPLICATION 
followed by menu followed by editor 
followed by forth. This is achieved by 
the phrase: 

APPLICATION SEARCHES MENU ALSO 
EDITOR ALSO FORTH END-SEARCH 

The specified search order becomes 
operational when APPLICATION is sub- 
sequently executed. 



Order: 

ALSO 

As this sequence of words is inter- 
preted, the system CONTEXT is changing 
at a furious rate. Indeed, the fact that 
the vocabularies are actually executing 
their run-time behavior makes the 
definition of the search order setup 
words so simple. The still point in this 
storm is the FORTH vocabulary. New 
vocabularies are defined within the 
FORTH vocabulary, and since 
SEARCHES and ALSO both set context 
to FORTH, the following vocabulary 
name is always "in context" (i.e., 
within the search order specified by 
CONTEXT). 

Finally, the word SEAL is used to 
limit the search order specified by a 
vocabulary to that vocabulary's defini- 
tions, as in: 

MENU SEAL 

Subsequent execution of MENU sets 
up a search order containing a single 
vocabulary, which is MENU itself. 

A problem arises when a sealed 
vocabulary is to be included in a search 
order setup sequence. Just consider the 
above setup sequence with menu as the 
sealed vocabulary. After MENU ex- 
ecutes, ALSO will be "out of context." 
There are ways around this, of which 
the most obvious is to compile the 
setup sequence before executing it, as 
in: 

: SETUP 

APPLICATION SEARCHES MENU 
ALSO EDITOR 
ALSO FORTH 

END-SEARCH ; SETUP 



I leave the reader to think of a slight- 
ly less flexible alternative which 
requires no compilation! 

DEFINITIONS is present with its usual 
usage, and FORGET can work across 
multiple vocabularies. ROMmable 
code is easily supported, though the 
definitions given here operate from 
RAM. 

Example Application 

Some of the most demanding control 



of search order occurs during 
metacompilation, but that is another 
story. The following example is a 
simple but realistic one involving the 
Forth assembler. 

One of the best uses of vocabulary 
switching in Forth occurs in CODE 
definitions. CODE switches the context 
vocabulary to assembler, and the 
words IF, ELSE, THEN, etc. take on 
meanings appropriate to code assemb- 
ly. The default search order specified 
by a standard definition of ASSEMBLER 
would be ASSEMBLER then forth, but 
it can be useful to modify this. Suppose 
we have an application that interfaces 
to a network with portions of as- 
sembler code that need direct access to 
constants and data structures in a 
NETWORK vocabulary. Part of the ap- 
plication might be organized like this: 



VOCABULARY NETWORK 
ASSEMBLER SEARCHES NETWORK 

ALSO FORTH END-SEARCH 
NETWORK DEFINITIONS 

CREATE BUFFER 256 ALLOT ( space 

for buffer ) HEX 
EOOO CONSTANT PORT-ADDRESS etc. . . 



The search order specified by 
ASSEMBLER (and therefore implicitly 
specified by CODE) has been set to 
ASSEMBLER, then NETWORK, then 
FORTH. We could now enter CODE 
definitions which contain references to 
words in the NETWORK vocabulary; for 
example: 



CODE SEND ( — send packet ) 

PORT # 

Dl MOV BUFFER # SI MOV etc. . . . 



(This example is from an 8086 as- 
sembler. An I/O port is being moved 
into the DI register and a buffer ad- 
dress into the SI register.) 

When the NETWORK DEFINITIONS 

are all loaded, we can restore 



FORTH Dimensions 



32 



yolumeVII, No. 1 



NEW BOOKS - "FORTH GUIDE" by Haydon. An exploration of the intricacies of MVP-FORTH 
"FORTH Applications" by Weber $13 .00 



$20.00 



THE FORTH SOURCE 



TM 



FORTH DISKS 

FORTH with editor, assembler, and manual. 



□ APPLE by MM, 83 



MVP-FORTH 

Stable - Transportable - Public Domain - Tools 

You need two primary features in a software development package . . . a 

stable operating system and the ability to move programs easily and quicl<ly ^ u k ^ mm qq 
to a variety of computers. MVP-FORTH gives you both these features and yj;^ LJ Maclnlosn by mm, hj 
many extras. This public domain product includes an editor, FORTH assem- " A-r«ni«i ...icooxu 
bier, tools, utilities and the vocabulary for the best selling book "Starting 
FORTH". The Programmer's Kit provides a complete FORTH for a variety of 
computers. Other MVP-FORTH products will simplify the development of 
your applications. 



MVP Books - A Series 

□ Vol. 1, All about FORTH by Haydon. MVP-FORTH glossary with cross 
references to fig-FORTH, Starting FORTH, and FORTH-79 Standard. 
2"" Ed. $25 

□ Vol.2, MVP-FORTH Assembly Source Code. Includes IBM-PC® , 
CP/M® , and APPLE® listing for kernel $20 

□ Vol. 3, F/oa(/ng Po/n( G/ossary by Springer $10 

□ Vol. 4, ExperfSysfem with source code by Park $15 

□ Vol. 5, F/Ve Managemenf Sysfem with interrupt security by Moreton $25 

□ Vol. 6, Expert Tutorial lor Volume 4 by M & L Derick $1 5 



□ ATARI® valFORTH 

□ CP/M by MM, 83 

□ HP-85 by Lange 

□ HP-75 by Cassady 

□ IBM-PC by LM, 83 
IBM-PC by MM, 83 

□ Z80 by LM, 83 



□ APPLE by MM, 

F G, & 83 



□ 8086/88 by LM, 83 $100 

□ 68000 by LM, 83 $250 

□ VIC FORTH by HES, 
VIC20 cartridge $20 

□ C64 by HES Commodore 
64 cartridge $40 

□ TImex by HVJ, cassette 

□ T/S 1000/ZX-81 $25 

□ 2068 $30 



MVP-FORTH Software - A Transportable FORTH 
D MVP-FORTH Programmer's Kit including disk, documentation, 



Vol- 



umes 1 & 2 of MVP-FORTH Series (All About FORTH. 2"" Ed. & Assem- 
bly Source Code), and Starting FORTH. □ CP/M, □ CP/M 86, □ Z100, 

□ APPLE, □ STM PC, □ IBM PC/XT/AT, □ PC/MS-DOS, □ Osborne, 

□ Kaypro, □ MicroDecisions, □ DEC Rainbow, □ TI-PC, 

□ NEC 8201 , □ TRS-80/1 00 $1 50 

MVP-FORTH Enhancement Package for IBM-PC/XT/AT Program- 
mer's Kit. Includes full screen editor, MS-DOS file interface, disk, 
display and assembler operators. $110 

□ MVP-FORTH Floating Point & Matrix Math for IBM PC/XT/AT with 
8087 or Apple with Applesoft $85 

□ MVP-FORTH Graphics Extension for IBM PC/XT/AT or Apple $65 

□ MVP-FORTH Programming Aids for CP/M, IBM or APPLE Program- 
mer's Kit. Extremely useful tool for decompiling, callfinding, translat- 
ing^ and debugging. $200 

□ MVP-FORTH Cross Compiler for CP/M Programmer's Kit. Gener- 
ates headerless code for ROM or target CPU $300 

□ MVP-FORTH Meta Compiler for CP/M Programmer's kit. Use for 
applications on CP/M based computer. Includes public domain 
source $1 50 

□ MVP-FORTH PADS (Professional Application Development System) 

for IBM PC/XT/ AT or PCjr or Apple II, II -I- or He. An integrated system for 
customizing your FORTH programs and applications. The editor in- 
cludes a bi-directional string search and is a word processor specially 
designed for fast development. iPADS has almost triple the compile 
speed of most FORTH's and provides fast debugging techniques. 
Minimum size target systems are easy with or without heads. Virtual 
overlays can be compiled in object code. PADS is a true professional 
development system. Specify Computer. $500 

□ MVP-FORTH MS-DOS file interface for IBM PC PADS $80 

□ MVP-FORTH Floating Point & Matrix Math see above $85 

□ MVP-FORTH Graphics Extension see above $65 

□ MVP-FORTH EXPERT-2 System for learning and developing 
^ knowledge based programs. Both IF-THEN procedures and analytical 

subroutines are available. Source code is provided. Specify □ Apple, 
Cl IBM, or □ CP/M. Includes MVP Books, Vol. 4 & 6 $100 

□ FORTH-Writer, A Word Processor for the IBM PC/XT/AT with 256K. 
^MVP-FORTH compatible kernel with Files, Edit and Print systems. 



$100 
$1 25 
$60 
$100 
$90 
$150 
$100 
$1 25 
$100 

Enhanced FORTH with: F-Floating Point, G-Graphics, T-Tutorial, 
S-Stand Alone, M-Math Chip Support, MT-Multi-Tasking, X-Other 
Extras, 79-FORTH-79, 83-FORTH-83. 

□ 

$180 

□ ATARI by PNS, FG, & X. $90 

□ CP/M by MM, F&83 $140 

□ TRS-80/1 or III by MMS 

F X, & 79 $1 30 

□ C64 by PS MVP, F G & X $96 

Key to vendors: 

HW Hawg Wild Software 
LM Laboralory Microsystems 
MM MicroMolion 

MMS Miller Microcomputer Services 
PNS Pink Noise Studio 
PS ParSec 



C64 with EXPERT-2 by 
PS 



□ Extensions for LM Specify 



IBM, Z80, or 8086 






□ Software Floating 






Point 


$1 


00 


□ 8087 Support 






(IBM-PC or 8086) 


$1 


00 


□ 951 1 Support 






(Z80 or 8086) 


$1 


00 


□ Color Graphics 






(IBM-PC) 


$1 


00 


□ Data Base 






Management 


$200 



FORTH MANUALS, GUIDES & DOCUMENTS 

Thinking FORTH by Leo 

Brodie, author of best selling 
"Starting FORTH" $16 

□ ALL ABOUT FORTH by 
Haydon. MVP Glossary $25 

□ FORTH Encyclopedia by 
Derick & Baker $25 

■^a FYS FORTH from the 
Netherlands 

□ User Manual $25 

□ Source Listing $25 



□ 



Includes Disk and Calculator systems and ability to compile additional 
FORTH words. $1 50 

D MVP-FORTH Fast Floating Point Includes 951 1 math chip on board 
with disks, documentation and enhanced virtual MVP-FORTH for Apple 
n, II -H, and lie. $450 
Ordaring Information: Ctieck, Money Order (payable to MOUNTAIN VIEW PRESS. 
INC.), VISA, MasterCard, American Express. COD's $5 extra. Minimum order $1 5. No 
billing or unpaid PC's. California residents add sales lax. Shipping costs in US included 
in price. Foreign orders, pay in US funds on US bank, include for handling and shipping 



□ FORTH Tools and Applic. by 

'i^ f^eierbach $1 9 

□ The Complete FORTH 

by Winfield $1 6 

Learning FORTH by 
Armstrong $1 7 

□ Understanding FORTH 
by Reymann $3 
FORTH Fundamentals, 

□ Vol. I by McCabe $16 

□ Vol. II Glossary $14 
Mastering FORTH by 
Anderson & Tracy $1 8 

□ Beginning FORTH by 
Chirlian $1 7 

□ FORTH Encyci. Pocket 
Guide $7 

□ And So FORTH by Huang. A 
college level text. $25 

□ FORTH Programming by 
Scanlon $1 7 



□ 



□ Starting FORTH by Brodie. 
Best instructional manual 
available, (soft cover) $20 

□ 68000 fig-Forth with 
assembler $25 

□ FORML Proceedings 

□ 1980 □ 1981 Vol 1 
^ □ 1 981 Vol 2 □ 1 982 

□ 1 983 □ 1 984 each $25 

□ 1981 Rochester Proceedings 

□ 1 981 □ 1 982 □ 1 983 

□ 1 984 each $25 

□ Bibliography of FORTH $1 7 

□ The Journal of FORTH 
Application & Research 

□ Vol. 1/1 DVol. 1/2 
Vol. 2/1 DVol. 2/2 

□ Vol. 2/3 each $1 7 

□ METAFORTH by Cassady $30 

□ Threaded Interpretive 
Languages $25 

□ Systems Guide to fig-FORTH 
by Ting $25 

□ Inside F83 Manual by 

Ting $25 

□ FORTH Notel)Ook by Ting $25 



□ Invitation to FORTH 

□ PDP-11 User Man. 

□ 6502 User's Manual by 
Rockwell Intl. 

□ FORTH-83 Standard 

□ FORTH-79 Standard 



□ Installation Manual for fig-FORTH 

□ Source Listings of fig-FORTH, Specify CPU 



$20 
$20 

$10 
$15 
$15 

$15 
$15 



by Air: $5 tor each item under $25, $1 for each item between $25 and $99 and $20 for 
each item over $1 00. All prices and products subject to change or withdrawal without 
notice. Single system and/or single user license agreement required on some 
products. 
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SCR 70 
( Vocabularies ) 
1 

2 : VOCABULARY 

3 CREATE VOC ? HERE VOC ! DOP , ( compile VLINK ) 

4 2+ C@ 1+ C, ( next voc ) 1 C, ( FORTH ) C, 

5 , DOES> 2+ CONTEXT ! ; 
6 

7 : SEARCHES ( — addrl addr2 ) CONTEXT @ 1+ FORTH ; 
8 

9 : ALSO ( addr — addr+1 ) CONTEXT @ Cg OVER C! 1+ FORTH 
10 

11 : END-SEARCH ( addrl addr2 — ) ALSO SWAP C! FORTH ; 
12 

13 : SEAL CONTEXT @ 1+ C! FORTH ; 
14 

15 : DEFINITIONS CONTEXT @ CURRENT ! 



ASSEMBLER to its Original meaning 
with: 

ASSEMBLER SEARCHES FORTH 
EN[>«EARCH 

Implementation 

The parameter field of each 
vocabulary is a data structure which 
contains information to specify the 
search order. The words SEARCHES, 
ALSO, END-SEARCH and SEAL operate 
on these data structures. Another ele- 
ment in a vocabulary's parameter field 
is the VLINK field, which contains a 
pointer to the previously defined 
vocabulary. This information is used 
when creating the parameter field of a 
new vocabulary, and when FORGET 
operates across multiple vocabularies. 
The user variable VOC contains the ad- 
dress of the VLINK field of the most 
recently created vocabulary. 

The following details and the source 
screens are particular to my own sys- 
tem, but the underlying ideas, as well 
as the glossary entries, are quite 
general. 

Each vocabulary is identified by a 
number between one and sixteen. (A 
sixteen-thread hashing algorithm is 
used to organize the dictionary.'') A 
vocabulary's parameter field contains 
a list of up to four bytes which specify 
the search order. The value zero is used 
as a terminator. The number one iden- 
tifies the FORTH vocabulary, and two 
the ASSEMBLER vocabulary. The seven- 
byte parameter field of ASSEMBLER 
looks like this: 



VLINK 2 10 

The two-byte field VLINK contains 
the address of the corresponding field 
in the dictionary entry for FORTH. A 
user variable VOC contains the address 
of the link in the most recently created 
vocabulary. This information is used 
to assign a number to the next 
vocabulary created. 

If FORTH and ASSEMBLER are the 
only vocabularies in the system, and we 
now define: 

VOCABULARY APPLICATION 

its parameter field will contain: 
VLINK 3 10 

VOCABULARY uses VOC to locate the 
last vocabulary created, which was 
ASSEMBLER, and from this works out 
the new vocabulary's vlink and num- 
ber, which is three. VOC is updated to 
point to the VLINK field in the new 
vocabulary. 

When APPLICATION becomes the 
CONTEXT vocabulary, CONTEXT holds 
the address of the third byte in the 
parameter field of APPLICATION. FIND 
scans this and the following bytes, and 
will search in turn vocabularies three 
and one. 

Now we can walk through a typical 
search order setup: 

ASSEMBLER Leaves CONTEXT pointing 



to the 2 in the parameter field of 
ASSEMBLER. 

SEARCHES ( — addr) Leaves the ad- 
dress of the following byte in the pa- 
rameter field of ASSEMBLER. 

APPLICATION Now CONTEXT points to 3 
in the parameter field of APPLICATION. 

ALSO (addr — addr + 1) Copies the 3 
from the APPLICATION vocabulary's 
parameter field into addr in the param- 
eter field of ASSEMBLER. 
FORTH Points CONTEXT to the FORTH 

vocabulary. 

END-SEARCH Copies 1 (identifying 
FORTH) from the FORTH vocabulary's 
parameter field to the parameter field 
of ASSEMBLER, then writes to the 
following address to mark the end of 
the search order list. 

The parameter field of ASSEMBLER 

now contains: 

LINK 2 3 10 

APPLICATION becomes the CURRENT 
vocabulary in the usual way, by execut- 
ing APPLICATION DEFINITIONS. CURRENT 

then holds the address of the third byte 
in the parameter field of application. 
The contents of this location are used 
by CREATE to decide in which 
vocabulary new dictionary entries 
should be placed. 

Suppose we want a search order con- 
taining more than four vocabularies? 
This is no problem. The additional 
bytes of the parameter field may be 
allotted when the vocabulary is 
created. Thus, if we wanted 
APPLICATION to eventually specify a 
search order of seven vocabularies, this 
would be set up with: 

VOCABULARY APPLICATION 3 ALLOT 

On the other hand, where memory is 
in short supply, we can recover unused 
bytes in a similar way. 

Final Word 

Four simple words have been added 
to an 83-Standard system to provide 
powerful facilities for the control of 
search order. These definitions will be 
easily adapted to systems in which the 
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parameter field of a vocabulary entry 
contains information which directly 
specifies a search order. They provide 
facilities which are not available when 
search order is specified by the order in 
which vocabularies are created (as in 
the FIG model) and they provide a 
more readable source than systems 
such as polyFORTH which require the 
user to specify a search order in 
numeric format. 

Glossary 

ALSO ( sysl — sys2 ) Set the 
CONTEXT vocabulary as the next 
vocabulary in the search order list iden- 
tified by sysl. Leave sys2, which iden- 



tifies the position of the following 
element in this list, for subsequent use 
by ALSO or END-SEARCH. 

END-SEARCH ( sys — ) Set the 
CONTEXT vocabulary as the next and 
final vocabulary in the search order list 
identified by sys. 

SEAL Set the search order specified 
by the present CONTEXT vocabulary to 
contain only the present CONTEXT 
vocabulary, and make FORTH the new 
CONTEXT vocabulary. 

SEARCHES ( — sys ) Leave the 
system-dependent information sys 
which identifies the position of the first 
element in the CONTEXT vocabulary's 
search order list. Make FORTH the new 
CONTEXT vocabulary. 
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Another Forth-83 LEAVE 




John Hayes 
Laurel, Maryland 

I would like to propose yet another 
solution to the Forth-83 LEAVE prob- 
lem. The ideal implementation of 
LEAVE should compile a (LEAVE) code 
primitive followed by a pointer to the 
first word after LOOP (or +LOOP), as in 
figure one. Since multiple LEAVES are 
allowed per LOOP level, LOOP must 
somehow resolve all these forward 
references. Also, in nested DO LOOPS, 
LEAVE must exit only the innermost 
loop surrounding it. These require- 
ments, combined with the fact that 
LEAVE will usually occur inside IF THEN 
control structures, suggest that the 
compile-time actions of DO, LEAVE and 
LOOP need to be quite complicated. 
However, the situation is not as bad as 
it seems. 

My implementation is a modifica- 
tion of one used by Bill Stoddart {Forth 
Dimensions V/4). His solution avoids 
the problem of resolving multiple 
forward branches by having each of 
the LEAVES point back to DO, where 
there is a pointer to the end of the 
LOOP. This is less efficient than the 
ideal implementation pictured in figure 
one. It turns out that coding the ideal 
solution is not difficult. I have written 
a general-purpose word > > RESOLVE 
that resolves multiple forward 
branches. I will explain how 
>> RESOLVE works in the context of 
the LEAVE problem. Then, to 
demonstrate the word's generality, I 
will show its application in a set of case 
structure compiling words. 

In my implementation, a Hnked hst 
of unresolved forward references is 
maintained. A VARIABLE named CLUE 
points to the most recent entry added 
to the chain. Each time the IMMEDIATE 
word LEAVE is executed, a code primi- 
tive (LEAVE) is compiled followed by a 
pointer back to the previous LEAVE 
link. If there are no previous LEAVES, a 
null pointer is compiled. Then CLUE is 
updated to point to the new head of the 
Hst. It is loop's job to convert this Ust 
into a set of pointers to the first word 



( CODE FOR RESOLVING FORHMiD AND BACKWARD BRANCHES ) 


: <MARK 
HERE ; 




( — ADDR ) ( USED AS DESTINATION ) 
( OF BACKWARD BRANCH. ) 


: < RESOLVE 




( ADDR ) ( RESOLVE BACKWARD ) 

( BRANCH. ) 


: >HARK 

HERE 2 ALLOT ; 




( ADDR ) ( SOURCE OF FORWARD ) 

( BRANCH. ) 


: >RESOLVE 
HERE SHAP 1 ; 




( ADDR ) ( RESOLVE FORWARD ) 

( BRANCH. ) 


: >>RESOLVE 

BEGIN 

DUP WIILE 

DOP HERE ROT ! 
REPEAT DROP ; 




( OLDLINK — ) ( RESOLVE A CHAIN ) 
( OF FORWARD BRANCHES. ) 


( THE CODE WORDS CD03, CL00P3, 
( CLEAVED IS A F0RTH-B3 LEAVE. 


AND C+L00P3 IMPLEMENT FORTH-83 DO.. LOOPS. ) 
CLUE IS USED TO IMPLEMENT LEAVE. ) 


VARIABLE CLUE 




( — ADDR ) ( CLUE POINTS TO ) 
( LAST WORD IN LEAVE (miN. ) 


: DO 

COMPILE (DO) CLUE CLUE 1 


<MARK 


( — CLUE HERE ) 
; IMMEDIATE 


: LOOP 

COMPILE (LOOP) <RESOLVE 
CLUE S >>RESOLVE 
CLUE ! ; IMMEDIATE 




( CLUE HERE — ) 


I +LOOP 
COMPILE (+LOOP) < RESOLVE 
CLUE a >>RESOLVE 
CLUE ! ; IMMEDIATE 




( CLUE HERE ) 


: LEAVE 

COMPILE (LEAVE) HERE CLUE Q , 


CLUE 


( — ) 
1 ; IMMEDIATE 


( 


Listing One * 


( CASE SELECT COMPILING WORDS. THE SYNTAX OF THE STROCTDHE IS: ) 
( : NUMCHECK ) 
( SEL ) 
( << = = > ZEROSTUFF MORESTUFF >> ) 
( = > ONESTDFF MORESTUFF >> ) 
( << 10 = = > TENSTUFF MORESTUFF >> ) 
( << OTHERWISE OTHERSTOFF >> ) 
( ENDSEL ; ) 


: SEL 
; IMMEDIATE 






: << 

COMPILE DUP ; IMMEDIATE 




( OLDLINK OLDLINK ) 


: -> 

COMPILE 7BRANCH >MARK 
COMPILE DROP ; IMMEDIATE 




( — IFADDR ) 


: = = > 
COMPILE ■= 

COMPILE 7BRANCH >MARK 
COMPILE DROP ; IMMEDIATE 




( — - IFADDR ) 


: >> 

COMPILE BRANCH SWAP , 
>RESOLVE 

HERE 2- ( IMMEDIATE 




( OLDLINK IFADDR — NEWLINK ) 


: OTHERWISE 
COMPILE DUP ! IMMEDIATE 




( ) ( E OPTIONALLY] CREATE ) 

( AN OTHERWISE CASE. ) 


: ENDSEL 




( OLDLINK ) 


COMPILE DROP >>RESOLVE ; IMMEDIATE 




( 


Listing Two ' 
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after loop. This is where >> RESOLVE 
comes in. >> resolve's argument is a 
pointer to the start of a Hnked Ust. 
>> RESOLVE threads down the list, 
changing each pointer to HERE instead 
of the next Hnk. Figure two-a shows a 
DO LOOP with two LEAVES inside before 
LOOP is executed. Figure two-b shows 
the completed DO LEAVE LOOP struc- 
ture. 

The address of the LEAVE Ust has to 
be kept in a VARIABLE instead of on the 
stack. Since leave can occur inside 
other control structures, a list address 
kept on the stack could be covered by 
an arbitrary number of words, making 
it impossible for LEAVE to find the 
address. But keeping the address in the 
VARIABLE CLUE introduces another 
problem. Each loop in a nested DO 
LOOP structure needs a separate LEAVE 
list. Therefore, at times there can be 
more than one unresolved LEAVE list. 
The solution is to have DO stack the old 
value of CLUE and store a new null 
pointer in CLUE. LOOP, after 
>>RESOLVEing the current LEAVE hst, 
will restore CLUE to its old value. This 
idea is due to Bill Stoddart. 

Another instance where it is neces- 
sary to resolve multiple forward 
branches is in the case structure. The 
syntax of the structure is shown at the 
top of Usting two. Each > > should 
compile a branch to the word following 
ENDSEL. The method of implementa- 
tion is similar to the LEAVE list. Each 
time > > executes, it compiles a 
BRANCH primitive followed by a link to 
the previous > > . ENDSEL converts this 
linked list into pointers to HERE using 
>> RESOLVE. 

Note that my Forth system used 
sixteen-bit absolute branches. If your 
system uses eight-bit relative branches, 
> > RESOLVE will be harder to code, but 
not impossible. Happy Forthing! 



(DO) 




(LEAYE) 


P 




(LOOP) 


P 



Figure One 
Ideal DO. . .LEAVE. . .LOOP 



CLUE 

i 



(DO) 



(LEAYE) 



ULEAYE) p 



Figure Two a 
DO. . .LEAVE. . .LEAVE. . .LOOP before 
Loop is executed 





(DO) 




(LEAVE) 


P 




(LEAYE) 


p 




(LOOP) p 












Figure IWo b 



DO. . .LEAVE. . .LEAVE. . .LOOP after 
LOOP is executed 
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*Yet Another Case Statement 

Henry Laxen 
Berkeley, California 

Last time, we traced the history of 
the CASE statement in Forth and took a 
look at three different implementations 
of "indexed" case statements, namely 
CASE statements that were basically 
arrays of executable procedures. At 
run time, the index on the parameter 
stack was used to compute an index 
into this array, and the corresponding 
element of the array was executed. 
While this approach is often exactly 
what is required and is very efficient at 
run time, I pointed out that sometimes 
a more flexible CASE structure would 
be handy. I left you with a challenge, 
namely to come up with a CASE state- 
ment that adds the minimum number 
of new words to Forth and allows ar- 
bitrary Forth expressions to be used 
both as matching clauses and con- 
sequent clauses. My solution to this 
problem is presented in figure one, 
with examples of use in figure two. 
Let's take a look and see if we can 
figure out how it works. 

First, let's look at the word RUN 
which, as the name implies, runs some- 
thing. All it does is push the address 
that is on the parameter stack onto the 
return stack. This seems a bit susp- 
icious, since we all remember from our 
early Forth training that we never push 
anything onto the return stack without 
later removing it in the same word; 
otherwise, disaster may result. Well, as 
in life, every rule was made to be 
broken. In this case, we use RUN to run 
a high-level code fragment. What hap- 
pens is that the address we provide is 
pushed onto the return stack. Next, the 
UNNEST word compiled by ; executes, 
and pops the return stack into the IP. 
The net result is that interpretation 
proceeds at the address we provided on 
the parameter stack. When the UNNEST 
word at the end of the high-level code 
fragment is encountered, it will return 
to the word following the RUN in the 
high-level definition containing it. RUN 
would be a useful word to have in all 
Forth systems, since its virtue is that — 
unlike EXECUTE — it does not require a 
code field. 

Now let's examine the word CASE. It 
works in conjunction with END-CASE as 
follows: CASE will compile high-level 
Forth phrases while the number on the 



top of the parameter stack is non-zero. 
Normally, the number on the parame- 
ter stack is the address of the beginning 
of the current code phrase, which 
should get resolved; however, when the 
word ENO-CASE executes, we notice 
that the first thing it does is a DROP 
FALSE, which will throw away the ad- 
dress and replace it with a zero. This 
will terminate the compilation loop. 
Notice also that END-CASE is an 
IMMEDIATE word, and hence executes 
even while compiling. The compile- 
time portion of CASE generates a linked 
list of code phrases. A picture illustrat- 
ing this is in figure three, and 
represents the structure built in 
memory by the code in figure two. For 
those of you unfamiliar with the 
Forth-83 words >MARK and 

> RESOLVE, their definitions are as 
follows: 

: >MARK HERE , ; 

: > RESOLVE HERE SWAP ! ; 

Their function is to leave a pointer to 
a cell on the parameter stack and in- 
itialize the cell to zero, and to then 
resolve the contents of the cell whose 
address is on the stack to the current 
dictionary location. They are used ex- 
tensively in the definitions of if ELSE 
THEN and the looping words. They are 
also exactly what is called for here, to 
create a linked list in memory. The !CSP 
word is required for the compile-time 
error checking that is usually imple- 
mented inside ;. 

Now then, let's analyze what is going 
on. At the beginning of the loop, we 
lay down a link address and call the 
Forth compiler with ]. The Forth com- 
piler compiles the following words in 
the input stream until it encounters a ;. 
The ; compiles an UNNEST for us and 
exits from the compiler. At this point, 
the address left by >MARK should still 
be on the stack; if it is, execution con- 
tinues through the WHILE. The 

> RESOLVE word resolves the link left 
by the previous >MARK and branches 
back to the begin to repeat the process. 
Thus, we are creating a linked list of 
code phrases, until the address that was 
placed on the stack by >mark is 
replaced by a zero. This is done by END- 
CASE. 

The run-time portion of CASE simply 
uses the information compiled by CASE 



to evaluate the first, third, fifth, etc. 
phrases and to compare them to the 
top of the parameter stack. If the value 
returned by the phrase equals the value 
on the stack, then the next phrase — an 
even-numbered one — is executed. If 
the values are not equal, the even 
phrase is skipped and the next odd 
phrase is executed. Notice that it is the 
user's responsibility to make sure that 
the phrases come in pairs, since CASE 
does no compile-time or run-time error 
checking. If we march all the way 
through the linked list and never find a 
phrase that generates a matching value, 
we will eventually encounter the zero 
link that was compiled last. This will 
cause us to exit the BEGIN WHILE REPEAT 
loop and 2DROP throws away the initial 
value that was passed to us, and the 
zero that was fetched to terminate the 
list. 

One interesting feature of this CASE 
statement is that in order to implement 
an OTHERWISE clause, which will al- 
ways be executed if none of the 
previous clauses matched, we simply 
DUP the top of the stack. This will 
guarantee that the two values are 
equal, and the corresponding con- 
sequent clause will be executed. 



'"•'iiiiiit' I 



fit 



FORTH Dimensions 



38 



VolumeVII.No. 1 




1 

2 
3 
4 

5 

7 
8 
9 
10 
11 
12 



\ ORflND CflSE 

. RUH <S Qddr ~ > >R ; 
: CR8E 

CREATE <S — ) 

BEGIN >nRRK !CSP 1 DUP UHILE >RESOLUE REPEAT 
D0E8> <S n — ) 
BEGIN DUP 9 UHILE 

2DUP 2-I- RUN a IF NIP • 2+ RUN EXIT THEN 
% 9 < no Mitch, link to next condition > 
REPEAT 2DR0P ; 
: END-CASE <S n — ) 

DROP FALSE ICOMPILE] I ; INNEDIATE 
: OTHERWISE <S n — n n ) DUP ; 

Figure One 



\ EXAHPLE OF A GRAND CASE 

1 CASE AEHflRK 

2 2 ; ." Th« only tu«n priM" ; 

3 6 ; ." Tbm first p«rf«ct nuMtwr" ; 

4 OTHERUISE ; Nothing rwKrkabIc about It' 

5 END-CASES 

6 1 AENAAK tCAl Nothing p«ikcrkabl« about it OK 
2 REMARK [CR] The only (tvtn priM OK 
6 REMARK CCRl Jhm first pmrlmci numbmr OK 

Figure Two 
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Pointer to 1 st 
Eval Cod* 


List of Code Fields 
for 1 st Condition 


Pointer to 2nd 
Condition Code 


List of Code Fields 
for IstEval Code 


\ 


1 




/ 


\ 


/ 


Pomter to 2i«i 
EvalCode 


List of Code Fields 
for 2nd Condition 


Pointer to 3rd 
Condition Code 


List of Code Fields 
for 2nd Eval Code 


\ 




/ 


/ \ 


Pomter to 3rd 
Eyal Code 


List of Code Fields 
for 3rd Condition 


0-- End of list 


List of Code Fields 
for 3rd Eval Code 



Figure Three 
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\ PROPOSED GRANDER CASE 
: EQUAL [ ' 1 » ; 
: RANGE CI BETHEEN ; 
HEX RANGE CASE CLA8SIFV 



IF 
20 2F 
30 39 
3A 40 
41 5fi 
SB 60 
61 7A 
7B 7E 
7F 7F 



13 END-CASES 



Control Oxrocter" 
Punctuotion" ; 
Digit - ; 
Punctuation" ; 
Upper Cose Letters" 
Punctuation" 
Lower Cose Letters" 
Punctuation" ; 
Control Chorocter" 

Figure Four 



FORTH I 

INTEL I 
8031 I 

\ MICRO- 
CONTROLLERi 




FEATURES 

-FORTH-79 Standard Sub-Set 
-Access to 8031 features 
-Supports FORTH and machine 

code interrupt handlers 
-System timekeeping maintains 
time and date with leap 
year correction 
-Supports ROM-based self- 
starting applications 



COST 

1 30 page manual — $ 30.00 
8K EPROM with manual— $100.00 

Postage paid in North America. 
Inquire for license or quantity pricing. 



Bryte Computers, Inc. 

P.O. Box 46, Augusta, ME 04330 
(207) 547-3218 
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John D. Hall 
Oakland, California 

We want to welcome five new 
chapters: 

Huntsville FIG Chapter, 
Huntsville, Alabama 

Central Iowa FIG Chapter, 
Ames, Iowa 

Fairfield FIG Chapter, 
Fairfield, Iowa 

North Orem FIG Chapter, 
Orem, Utah 

Lake Superior FIG Chapter, 
Superior, Wisconsin 



Central Connecticut FIG Chapter 

Feb 6: On Wednesday, we met at the 
Meriden Public Library. Upon the sug- 
gestion of John Moran, work was 
begun on a test suite for fig- FORTH. 
As discussion continued on the subject, 
we realized we were taking on a non- 
trivial project. The purpose of this pro- 
ject is to give individuals who have 
versions of Forth a means of validating 
their instruction set. We are calling on 
the entire Forth community to help us! 
Although we intend to produce a pro- 
gram to validate the entire set of fig- 
FORTH words, we are aware that 
some versions of fig-FORTH, both 
commercial and public-domain ver- 
sions, contain bugs. We would like to 
trap as many of these as we can. If any 
users out there can identify the bugs 
their versions contain, we would appre- 
ciate as much information as possible 
about these peculiarities so we can be 
sure these most common bugs are iden- 
tified by the test suite. If you write us 
about an existing bug, please try to in- 
clude: 1) the source of your Forth, 
2) the date of release or version num- 
ber, 3) the word(s) that don't work, 
4) under what conditions this bug can 
be simulated, and 5) if known, the 



cause or a cure. Also, any references to 
prior work on this subject, or any other 
type of help at all, would be appreciat- 
ed. Upon its completion, the test suite 
will be released — with much criticism, 
I'm sure — to the Forth community. 

This is a very ambitious group pro- 
ject, and any Forth users in Connec- 
ticut who can help with suggestions or 
coding would be very welcome at our 
meetings! Please contact Charles 
Krajewski, 205 Blue Rd., Middletown, 
CT 06457, (203) 344-9996. 

— Charles Krajewski 



Atlanta FIG Chapter 

Mar 19: Our meeting proved to be in 
our familiar mold — unstructured and 
with much exciting debate on various 
topics. Nathan Vaughn continued his 
explanations of ideas for an intelligent 
interest-matching system which will 
one day relieve him of much routine 
work. Anyone with knowledge of a 
method for counting word usage and 
managing a huge vocabulary, with 
elimination of infrequently used 
words, should contact Nathan. David 
Penz described his need for low-cost, 
PC-based productivity tools in a multi- 
tasking environment. Chuck Albert 
wants to apply Forth to the math used 
to predict the effect of complicated 
modulation on a carrier. Anyone with 
experience in using Forth on Bessel 
functions? To gain an overall impres- 
sion of what the Forth community in 
Atlanta is doing, here are some of the 
topics I jotted down that came up in 
our conversations: 1) controller read- 
ing codes off of moulds, 2) epidemiol- 
ogy, 3) ultrasonics, 4) robotics, 5) color 
graphics, 6) fuzzy logic, and 7) bit-slice 
processors. 

— Ron Skelton 



Detroit FIG Chapter 

Jan 22: Burce Bordt gave an 
interesting presentation of his 
interrupt-driven system. The system is 



operating on his homebrew 6809-based 
system. Except for two dependent 
machine-code words, the entire 
software system was written in high- 
level Forth. The system is written so 
that by changing a particular vector, 
execution of any word could be 
invoked by depressing a switch, 
triggered by a system timer, etc. 

Feb 26: Randy White presented a 
short graphics "windowing" demo 
from the Val-Forth package on an 
Atari Computer. A continuing 
discussion of a graphics standard in 
Forth followed. A discussion also 
followed of the Bulletin Board System 
we have been trying to establish. The 
system would be used for message 
exchange, program exchange and 
announcements. Due to financial 
limitations at this time, it was decided 
to use an existing bulletin board or 
Compuserve for this purpose. 

— Tom Chrapkiewicz 



Hamburg FIG Chapter 

Feb: The Hamburg chapter meets on 
the fourth Saturday of the month, and 
usually about twenty people show up. 
There are chapters forming in Berlin, 
Wuppertal, Kiel, Bremen, Paderborn 
and Karlsruhe. We are organizing 
"euroFORML 85," a multi-faceted 
conference on October 25-27 in a 
castle in southern Germany. Please 
plan to attend. See a call for papers 
elsewhere in this or the previous issue. 



Orange County FIG Chapter 

Jan 2: Wil Baden presented a 
calendar which easily calculates any 
day of the year. Roland Koluvek 
presented some work he had done over 
the hoHdays which, on a PC, allows 
you to leave Forth resident and return 
to DOS, then an ALT-Shift from DOS 
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returns you to Forth. This is something 
like Sidekick. Allen Hansen had added 
some features to Leo Brodie's Quick 
Text Formatter. 

Feb 6: Wil Baden presented a map of 
the United States done Forth style. Ken 
Clark presented a paper called "A Set 
of Formal Rules for Phrasing." These 
rules are regular and it is possible to 
pass raw code through a formatter and 
have it "phrased." Wil presented 
:DOES> which is his solution to the 
need in Forth for "self-defining 
words." 

— Roland Koluvek 

All the chapter hand-outs mentioned 
in these chapter reports that are sent to 
John Hall, are reproduced and 
redistributed to the chapters on a 



monthly basis. Check with your 
chapter for copies. 



Silicon Valley FIG Chapter 

Feb 23: We had about sixty people 
show up at the new meeting place in 
San Carlos. FORML used the library 
in the morning, and the afternoon FIG 
meeting used the gymnasium at the 
ABC School. The acoustics in the gym 
were bad, so we will try to use the 
Hbrary until we overflow. For the 
morning FORML session, Kim Harris 
suggested we organize some small 
working groups doing favorite projects 
that can be developed and presented as 
team efforts. We will select them next 



month. John James and Mike Ham 
discussed FIG's plan to distribute 
Forth material on the Delphi or 
Compuserve nets. Many FIG members 
already subscribe, and there are 
already Forth activities on these nets. 
FIG may be able to make these nets the 
focus of the exchange of Forth code 
and information, with the chapters as 
nodes to the members. A quick poll 
was conducted to see if members would 
discuss their projects and activities at 
work. Much work in Forth gets done 
on projects where Forth is not the main 
purpose of the project and is not 
visible. We would like to focus 
attention on these projects. Thirty 
people agreed, and each will be given 
time at the next meeting. 

—John Hall 



TOTAL CONTROL 

FORTH; FOR Z-SO®, 8086, 68000, and IBM® PC 

Complies with the New 83-Standard 
GRAPHICS. GAMES • COMMUNICATIONS. ROBOTICS 
DATA ACQUISITION . PROCESS CONTROL 

• FORTH programs are instantly 
portable across the four most popular 
microprocessors. 

• FORTH is interactive and conver- 
sational, but 20 times faster than 
BASIC. 

• FORTH programs are highly struc- 
tured, modular, easy to maintain. 

• FORTH affords direct control over 
all interrupts, memory locations, and 
i/o ports. 

• FORTH allows full access to DOS 
files and functions. 

• FORTH application programs can 
be compiled into turnkey COM files 
and distributed with no license fee. 

• FORTH Cross Compilers are 
available for ROM'ed or disk based ap- 
plications on most microprocessors. 

Traaemarks IBM Internalional Business Machines 
Corp, CP/M, Oigilal Research Inc PC/Forlh + and 
PC/GEN, Laboratory Microsystems. Inc 



FORTH Application Development Systems 

include interpreter/compiler »/ith virtual me.mory 
management and mulli-tasKing, assembler, lull 
screen editor, decompiler, utilities and 200 page 
manual Standard random access files used for 
screen storage, extensions provided for access to 
all operating system functions 
Z-80 FORTH for CP/M" 2 2 or MP/M II $100 00, 
8080 FORTH for CP/M 2,2 or MP/M II, $100 00; 
8086 FORTH for CP/M-86 or MS-DOS, $100 00: 
PC/FORTH tor PC-DOS, CP/M-86, or CCPM. 
$100,00; 68000 FORTH for CP/M-68K, $250 00 

FORTH + Systems are 32 bit implementations 
that allow creation of programs as large as 1 
megabyte. The entire memory address space of 
the 68000 or 8086/88 is supported directly 

PC FORTH + $250 00 

8086 FORTH -t-for CP/M-86 or MS-DOS $250 00 
68000 FORTH + for CP/M-68K $400 00 

Extension Packages available include; soft- 
ware floating point, cross compilers. INTEL 

8087 support, AMD 951 1 support, advanced col- 
or graphics, custom character sets, symbolic 
debugger, telecommunications, cross reference 
utility, B-tree file manager. Write for brochure. 




Laboratory Microsystems Incorporated 

Post Office Box 10430, Marina del Rey, CA 90295 
Phone credit card orders to (213) 306-7412 
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• ALABAMA 

Huntsville FIG Chapter 

Call Tom Konantz 
205/881-6483 



• ALASKA 

Kodiak Area Chapter 

Call Norman C. Mcintosh 
907/486-4843 



• ARIZONA 

Phoenix Chapter 

Call Dennis L. Wilson 
602/956-7678 

Tucson Chapter 

Twice Monthly, 

2nd & 4th Sun., 2 p.m. 

Flexible Hybrid Systems 

2030 E. Broadway #206 

Call John C. Mead 

602/323-9763 

• ARKANSAS 

Central Arkansas Chapter 

TXvice Monthly: 2nd Sat., 2 p.m. 
4th Wed., 7 p.m. 
Call Gary Smith 
501/227-7817 

• CALIFORNIA 

Los Angeles Chapter 

Monthly, 4th Sat., 10 a.m. 
Hawthorne Public Library 
12700 S. Grevillea Ave. 
Call Phillip Wasson 
213/649-1428 

Monterey/Salinas Chapter 

Call Bud Devins 
408/633-3253 

Orange County Chapter 

Monthly, 4th Wed., 7 p.m. 
FuUerton Savings 
Talbert & Brookhurst 

Fountain Valley 

Monthly, 1st Wed., 7 p.m. 

Mercury Savings 

Beach Blvd. & Eddington 

Huntington Beach 

Call Noshir Jesung 

714/842-3032 

San Diego Chapter 

Weekly, Thurs., 12 noon 
Call Guy Kelly 
619/268-3100 ext. 4784 

Sacramento Chapter 

Monthly, 4th Wed., 7 p.m. 
1798-59th St., Rra. A 
Call Tom Ghormley 
916/444-7775 



Bay Area Chapter 

Monthly, 4th Sat. 
FORML: 10 a.m. 
General: 1 p.m. 
ABC Christian School Aud. 
Dartmouth & San Carlos Ave. 
San Carlos 

Call: FIG Hotline — 415/962-8653 

Stockton Chapter 

Call Doug Dillon 
209/931-2448 

• COLORADO 

Denver Chapter 

Monthly, 1st Mon., 7 p.m. 
Call Steven Sams 
303/477-5955 

• CONNECTICUT 

Central Connecticut Chapter 

Call Charles Krajewski 
203/344-9996 

• FLORIDA 

Orlando Chapter 

Every two weeks. Wed., 8 p.m. 
Call Herman B. Gibson 
305/855-4790 

Miami 

Monthly, Thurs., p.m. 
Coconut Grove area 
Call John Forsberg 
305/252-0108 

Tampa Bay Chapter 

Monthly, 1st Wed., p.m. 
Call Terry McNay 
813/725-1245 

• GEORGIA 

Atlanta Chapter 

Call Ron Skelton 
404/393-8764 

• ILLINOIS 

Central Illinois Chapter 

Urbane 

Call Sidney Bowhill 
217/333-4150 

Fox Valley Chapter 

Call Samuel J. Cook 
312/879-3242 

Rockwell Chicago Chapter 

Call Gerard Kusiolek 
312/885-8092 

• INDIANA 

Central Indiana Chapter 

Monthly, 3rd Sat., 10 a.m. 
Call John Oglesby 
317/353-3929 



Fort Wayne Chapter 

Monthly, 2nd Wed., 7 p.m. 
Indiana/Purdue Univ. Campus 
Rm. B71, Neff Hall 
Call Blair MacDermid 
219/749-2042 



• IOWA 

Iowa City Chapter 
Monthly, 4th Tues. 
Engineering Bldg., Rm. 2128 
University of Iowa 
Call Robert Benedict 
319/337-7853 

Central Iowa FIG Chapter 

Call Rodrick A. Eldridge 
515/294-5659 

Fairfield FIG Chapter 

Monthly, 4th day, 8:15 p.m. 
Call Gurdy Leete 
515/472-7077 



• KANSAS 

Wichita Chapter (FIGPAC) 

Monthly, 3rd Wed., 7 p.m. 
Wilbur E. Walker Co. 
532 Market 
Wichita, KS 
Call Arne Flones 
316/267-8852 



• LOUISIANA 

New Orleans Chapter 

Call Darryl C. Olivier 
504/899-8933 

• MASSACHUSETTS 

Boston Chapter 

Monthly, 1st Wed. 
Mitre Corp. Cafeteria 
Bedford, MA 
Call Bob Demrow 
617/688-5661 after 7 p.m. 

• MICHIGAN 
Detroit Chapter 

Monthly, 4th Wed. 
Call Tom Chrapkiewicz 
313/562-8506 



• MINNESOTA 

MNFIG Chapter 

Even Month, 1st Mon., 7:30 p.m 
Odd Month, 1st Sat., 9:30 a.m. 
Vincent Hall Univ. of MN 
Minneapolis, MN 
Call Fred Olson 
612/588-9532 



• MISSOURI 

Kansas City Chapter 

Monthly, 4th Tues., 7 p.m. 
Midwest Research Inst. 
Mag Conference Center 
Call Linus Orth 
816/444-6655 
St. Louis Chapter 
Monthly, 3rd Tues., 7 p.m. 
Thornhill Branch of 
St. Louis County Library 
Call David Doudna 
314/867-4482 

• NEVADA 

Southern Nevada Chapter 

Call Gerald Hasty 
702/452-3368 

• NEW HAMPSHIRE 
New Hampshire Chapter 

Monthly, 1st Mon., 6 p.m. 
Armtec Industries 
Shepard Dr., Grenier Field 
Manchester 
Call M. Peschke 
603/774-7762 

• NEW MEXICO 
Albuquerque Chapter 

Monthly, 1st Thurs., 7:30 p.m. 
Physics & Astronomy Bldg. 
Univ. of New Mexico 
Call Rick Granfield 
505/296-8651 

• NEW YORK 

FIG, New York 

Monthly, 2nd Wed., 8 p.m. 
Queens College 
Call Ron Martinez 
212/517-9429 

Rochester Chapter 

Bi-Monthly, 4th Sat., 2 p.m. 
Hutchinson Hall 
Univ. of Rochester 
Call Thea Martin 
716/235-0168 

Syracuse Chapter 
Monthly, 3rd Wed., 7 p.m. 
Call Henry J. Fay 
315/446-4600 

• OHIO 

Athens Chapter 

Call Isreal Urieli 
614/594-3731 

Cleveland Chapter 

Call Gary Bergstrom 
216/247-2492 

Cincinatti Chapter 

Call Douglas Bennett 
513/831-0142 



Dayton Chapter 

Twice monthly, 2nd Tues., & 

4th Wed., 6:30 p.m. 

CFC 1 1 W. Monument Ave. 

Suite 612 

Dayton, OH 

Call Gary M. Granger 

513/849-1483 



• OKLAHOMA 

Central Oklahoma Chapter 

Monthly, 3rd Wed., 7:30 p.m. 
Health Tech. Bldg., OSU Tech. 
Call Larry Somers 
2410 N.W. 49th 
Oklahoma City, OK 73112 



• OREGON 

Greater Oregon Chapter 

Monthly, 2nd Sat., 1 p.m. 
Tektronix Industrial Park 
Bldg. 50, Beaverton 
Call Tom Almy 
503/692-2811 



• PENNSYLVANIA 

Philadelphia Chapter 

Monthly, 4th Sat., 10 a.m. 
Drexel University, Stratton Hall 
Call Melonie Hoag 
215/895-2628 

• TENNESSEE 

East Tennessee Chapter 

Monthly, 2nd Tue., 7:30 p.m. 
Sci. Appl. Int'l. Corp., 8th Fl. 
800 Oak Ridge Turnpike, Oak F 
Call Richard Secrist 
615/693-7380 

• TEXAS 

Austin Chapter 

Contact Matt Lawrence 
P.O. Box 180409 
Austin, TX 78718 

Dallas/Ft. Worth 
Metroplex Chapter 

Monthly, 4th Thurs., 7 p.m. 
Call Chuck Durrett 
214/245-1064 

Houston Chapter 

Call Dr. Joseph Baldwin 
713/749-2120 

•UTAH 

North Orem FIG Chapter 

Contact Ron Tanner 
748 N. 1340 W. 
Orem, UT 84057 



• VERMONT 

Vermont Chapter 

Monthly, 3rd Mon., 7:30 p.m. 
Vergennes Union High School 
Rm. 210, Monkton Rd. 
Vergennes, VT 
Call Don VanSyckel 
802/388-6698 

• VIRGINIA 

First Forth of Hampton Roads 

Call William Edmonds 
804/898-4099 

Potomac Chapter 

Monthly, 2nd Tues., 7 p.m. 
Lee Center 

Lee Highway at Lexington St. 
Arlington, VA 
Call Joel Shprentz 
703/860-9260 

Richmond Forth Group 

Monthly, 2nd Wed., 7 p.m. 
154 Business School 
Univ. of Richmond 
Call Donald A. Full 
804/739-3623 

• WISCONSIN 

Lake Superior FIG Chapter 

Call Allen Anway 
715/394-8360 



FOREIGN 

• AUSTRALIA 

Melbourne Chapter 

Monthly, 1st Fri., 8 p.m. 
Contact Lance CoUins 
65 Martin Road 
Glen Iris, Victoria 3146 
03/29-2600 

Sydney Chapter 
Monthly, 2nd Fri., 7 p.m. 
John Goodsell Bldg. 
Rm. LG19 

Univ. of New South Wales 
Sydney 

Contact Peter Tregeagle 
10 Binda Rd., Yowie Bay 
02/524-7490 



• BELGIUM 

Belgium Chapter 

Monthly, 4th Wed., 20:00h 
Contact Luk Van Loock 
Lariksdreff 20 
2120 Schoten 
03/658-6343 



Southern Belgium FIG Chapter 

Contact Jean-Marc Bertinchamps 

Rue N. Monnom, 2 

B-6290 NaUnnes 

Belgium 

071/213858 



• CANADA 

Nova Scotia Chapter 

Contact Howard Harawitz 
227 Ridge Valley Rd. 
Halifax, Nova Scotia B3P2E5 
902/477-3665 



Southern Ontario Chapter 

Quarterly, 1st Sat., 2 p.m. 
General Sciences Bldg. 
Rm. 312 

McMaster University 
Contact Dr. N. Solntseff 
Unit for Computer Science 
McMaster University 
Hamilton, Ontario L8S4K1 
416/525-9140 ext. 3443 

Toronto FIG Chapter 

Contact John Clark Smith 
P.O. Box 230, Station H 
Toronto, ON M4C5J2 



• COLOMBIA 

Colombia Chapter 

Contact Luis Javier Parra B. 
Aptdo. Aereo 100394 
Bogota 
214-0345 



• ENGLAND 

Forth Interest Group — U.K. 

Monthly, 1st Thurs., 
7p.m., Rm. 408 
Polytechnic of South Bank 
Borough Rd., London 
Contact Keith Goldie-Morrison 
Bradden Old Rectory 
Towchester, Northamptonshire 
NNI2 8ED 



• FRANCE 

French Language Chapter 

Contact Jean-Daniel Dodin 
77 Rue du Cagire 
31100 Toulouse 
(16-61)44-03 



• GERMANY 

Hamburg FIG Chapter 

Monthly, 4th Sat., 1500h 
Contact Horst-Gunter Lynsche 
Common Interface Alpha 
Schanzenstrasse 27 
2000 Hamburg 6 



• IRELAND 

Irish Chapter 

Contact Hugh Doggs 
Newton School 
Waterford 

051/75757 or 051/74124 



• ITALY 
FIG Italia 

Contact Marco Tausel 
Via Gerolamo Forni 48 
20161 Milano 
02/645-8688 



• REPUBLIC OF CHINA 
R.O.C. 

Contact Ching-Tang Tzeng 
P.O. Box 28 
Lung-Tan, Taiwan 325 



• SWITZERLAND 

Swiss Chapter 

Contact Max Hugelshofer 

ERNl & Co., Elektro-lndustrie 

Stationsstrasse 

8306 Bruttisellen 

01/833-3333 



SPECIAL GROUPS 



Apple Corps Forth Users 
Chapter 

Twice Monthly, 1st & 

3rd Tues., 7:30 p.m. 

1515 Sloat Boulevard, #2 

San Francisco, CA 

Call Robert Dudley Ackerman 

415/626-6295 

Baton Rouge Atari Chapter 

Call Chris Zielewski 
504/292-1910 

FIGGRAPH 

Call Howard Pearlmutter 
408/425-8700 
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Forth National Convention 

September 20 - 21, 1985 
Complete conference program, educational seminars. 



Hyatt Rickeys in Palo Alto, California USA 

euroFORML Conference 

October 23, 1985 - November 3, 1985 

International Technical conference at Stettenfels Castle 
SYSTEMS Trade Fair in Munich 
Guest and Tour Program in Germany 

Complete group travel arrangements from USA to Germany 
and return. Air travel on Lufthansa Air Lines. 

Forth Modification Laboratory 

November 29, 1985 - December 1, 1985 
A technical conference for advanced Forth practitioners. 



Monterey Peninsula overlooking the Pacific Ocean 



Complete information available from the Forth Interest Group. 



and commercial exhibits. 



Asilomar Conference Center 



Pacific Grove, California USA 
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